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NORTHERN BYTES FRIGE 
INCREASE EFFECTIVE THIS ISSUE 

Due to the lack of growth in our readership, we feel that It 
is necessary to raise the price for NORTHERN BYTES. This and all 
future issues will be $4Ns per issue. However, we are not just 
doubling the price, we are also doubling the page count to 48 
pages. So, In effect you are getting two of our former size issues 
for the price of two (which is another way of saying that you're 
still paying the same price per page). Doubling the page count 
enables us to save money on both printing and mailing costs, which 
might mean we'll be around Just a little longer. 

If you are on our credit card or "to be invoiced" mailing list 
and do not wish to pay the higher price, please let us know as 
soon as possible, and we will remove you from our mailing list. If 
you are truly upset about being charged the additional $2.00 for 
this issue, just drop us a line and we'll credit your Visa or 
Mastercard account for $2.00 and drop you from the mailing list. I 
do apologize for not giving advance notice about this increase, but 
It was a last-minute decision to keep us from drowning in red ink. 

For those of you who have "free" issues coming, this and 
each future issue will count as two of our former size issues. So, 
you will see your "issues left" count on your mailing label reduced 
to half of what it would have been had we stayed with the old 
size. In other words - suppose your last mailing label said that 
you had four issues left. The Issue you now have in your hand 
counts for two of those issues, and the next issue will count for 
the final two of those issues. Thus, the label on this issue will 
k say that you have one issue left. You didn't really lose two Issues 
;- we Just had to adjust the count. For those that had an odd 
number of issues remaining, the adjustment will be made in your 
favor. Those contributing articles to Northern Bytes will receive 
three of the new size issues free, as opposed to the six free issues 
we used to give at the former size. 

Of course, you'll be getting NORTHERN BYTES less often now 
- possibly much less often. Is this the beginning of the end? Yes, 
I'm afraid it is. It is only a matter of time until the last 
NORTHERN BYTES rolls off the press. Since NORTHERN BYTES is an 
irregular publication, we have the luxury of letting it "fade into the 
sunset" by gradually publishing fewer and fewer issues. So, we 
probably won't ever have a formal "this is the last issue" type 
announcement - you'll just notice someday that you haven't seen an 
issue for six or eight months, and you'll know it's gone. 

But why? Most of our current readers seem to love 
NORTHERN BYTES. I get letters almost daily that say how much 
our readers appreciate us, and pleading with us not to discontinue 
publication. To quote Barrett Strong, "Your love gives me such a 
thrill, but your love won't pay my bills..." [in case you're too 
young to remember, Barrett Strong was a singer in the early 
Motown era. He had one big hit, called "Money (That's What I 
Want)". Evidently he made as much money as he wanted from that 
one song, because he was never heard from on the charts again]. 

Well, I've never done NORTHERN BYTES for money - and it's a 
good thing, because it's never really covered its own expenses. 
You may have noticed that we carry very little advertising (not by 
choice), but what you may not realize is that our readership levels 
have never been so large that our NORTHERN BYTES mailing would 
not fit in the back seat of a very small car. 

It isn't as though we haven't tried. We did a "mass mailing" 
on CompuServe that resulted in our sending out several hundred 
free sample copies, but we got very few regular readers from that. 
We even bought a classified ad in 80-Micro. Still not much luck, 
But what is really disappointing is that we expected that "word of 
k mouth" advertising by our readers would inspire others to sign up. 
\ That hasn't happened in any significant numbers. 

The point is, we can't continue to operate in the red (well, 
the pink, anyway) forever. The editor would have liked to seen the 
day when he could have received a real salary for editing this rag, 
but apparently that is not to be. We've been on shaky ground just 
trying to cover expenses. 



The biggest reason, however, for cutting back/discontinuing 
NORTHERN BYTES is that the editor has put in hundreds of hours 
on this publication, and now feels that this time could be spent 
much more effectively in other pursuits. Call It an early midlife 
crisis if you like, but at age 34 I am hardly successful by any 
measure. That's partly because I'm somewhat of an unconventional 
person (I don't mind dressing nicely, but I draw the line at wearing 
a necktie - I just won't do it!), but mainly because my hest efforts 
seem to have been put into somewhat unproductive pursuits. If, by 
this time, NORTHERN BYTES had grown and reached the point where 
some employees could be hired and the work load distributed, among 
more people, then I would be more than happy, to keep it going. 
This has not happened, however, and I am mot a glutton for 
punishment. 

I do have one request for our readers. Please believe me 
when I say that we appreciate the articles and programs that have 
been contributed to NORTHERN BYTES in the past. However, In all 
fairness I must now ask that you not send in arty more articles for 
NORTHERN BYTES, unless they are with no strings whatsoever (in 
other words, you don't expect a reply or your disk back, and you 
won't get upset if the article is never used). I don't want to be. 
responsible for any unsolicited mail, and there is a chance that 
future contributions may never be used. I'd hate to see anyone go 
through all the trouble of writing ait article, only to have it just 
He here. Charley at The Alternate Source says that he is willing 
to look at anything you might want to send, and will consider it 
both for NORTHERN BYTES and/or the TAS Public Domain Library, 
and for any commercial possibilities you may have overlooked, so 
you may be better off in the long run to send your articles and 
programs directly to TAS. 

Also, I Intend to cut back on answering mail, which (as you 
know if you are a regular reader) has always been somewhat of a 
problem for me. I get lots of mail, and rather than try to pick and 
choose which letters deserve an answer, I am just going to quit 
answering any of them (with a very few exceptions). Fr^m now on. 
the only sure way to get a reply from me Is by telephone, at 
(906) 632-3248. The reason for this is that I am a very slow typist 
(especially when composing letters) and since I am trying to free 
up some time for other activities. It wouldn't make much sense for 
me to quit doing NORTHERN BYTES, only to spend all of my time 
answering mail. So, call, don't write (and don't call every night, 
either)). Overseas readers may consider themselves somewhat 
exempt from this requirement (I know how expensive transoceanic 
telephone calls are), but I am not guaranteeing that 1 will answer 
ANY mall anymore. Again, If you have a question or comment, you 
might be better off addressing it to Charley at The Alternate 
Source. 

I do apologize for these actions. If you really want to see 
me reverse my decision (to gradually disengage myself from 
NORTHERN BYTES), then sign up a few of your friends as regular 
readers. If it becomes profitable to publish issues (I'd say "again" 
but it never really was), we might do a few more and do them 
more frequently. And, I do appreciate all the nice comments and 
compliments I have received about this publication over the past 
couple of years. I feel that NORTHERN BYTES readers are some of 
the nicest people around, and in one way I feel terrible even 
thinking about discontinuing this publication. But, I have other 
obligations that I feel take precedence over NORTHERN BYTES. 
Please allow me some breathing room, and we'll see whether I can 
crank out another issue or two before the year ends. 

- Jack Decker, Editor 



THE EXTERMINATOR 

This is the case of "the bugs that leave tracks". In the 
TRSDOS 1.3 patches that were given in Volume 6, Number 8, patch 

number 13 was supposed to change the disk track count. Then, 

last issue, Andy Levinson wrote in to say that a couple of. the 

patch lines were omitted, and gave two more patch lines. Those 
are in error; the "*7" and "*14" are reversed. 



I finally decided to dig out my old copy of TRSDOS™ 
COMMENTED by Soft Sector Marketing (no longer in print, 
unfortunately) and see what the actual patches are. So, without 
further ado, here are the patches to change the track count on a 
copy of TRSDOS 1.3: 

I PATCH *0 (ADD=4926,FIND=NN,CHG=MM) 
IPATCH *0 (ADD=499B,FIND=NN,CHG=MM) 
I PATCH *6 (ADD=5C06,FIND=NN,CHG=MM) 
* PATCH *6 (ADD=5D53,FIND=NN,CHG=MM) 
) PATCH *7 (ADD=53FF,FIND=NN,CHG=MM) 
| PATCH *7 (ADD=54EF,FIND=NN,CHG=MM) 
§ PATCH *7 (ADD=5802,FIND=NN,CHG=MM) 
f PATCH *7 (ADD=5CD4,FIND=NN,CHG=MM) 
•PATCH *14 (ADD=4EB8,FIND-MN,CHG=HM) 
Also, change the last byte in the bootstrap sector to 'MM' 

In the above patches, replace NN with the original number of 
tracks in hexadecimal (this will be 28 for a standard 40 track disk, 
since 28 hexadecimal = 40 decimal). MM should be replaced with 
the new track count desired, again in hexadecimal (use 50 if you 
want 80 tracks). For more information, see the letter from Andy 
Levlnson in the letters column of this issue (which arrived just as' 
this issue was going to layout). I hope this ends the confusion! 

Also, bugstalkers, be sure to see the letter from Art 
Rasmussen in this issue's letters column, which describes a bug that 
appeared in his letter in LAST issue's letters column... 



LETTERS DEPARTMENT 
Reminder: Persons sending letters intended for publication 
should send them on magnetic media or via CompuServe [72167,161], 
Delphi [TASIO], or MCI Mail [109-7407] (especially if longer than a 
couple of paragraphs). If you are NOT using Allwrite (or Newscript) 
and your word processor offers the option to save your file in 
ASCII format, please do so (especially if using SuperScripsit!). Your 
cooperation in this matter will help us to bring you a better 
newsletter! 



Dear Jack, 

..... Re: NORTHERN BYTES Volume 7, Number 2, page 22, Model 
4 SuperScripsit zaps [to remove the triangles that appear in place 
of two spaces] - I could not make the two patches work. Try: 

§ PATCH SCRIPSIT/CTL (D14,28=18:F14,28=20) 
|PATCH SCR3S/CTL (D»1,30=18:F01,30=20) 

John Southcombe 

[Oops - either we goofed or you have a different version of 
SuperScripsit; I'm not sure which. Thanks for the correction!] 

Dear Jack, 

I have a Model I and so was very upset when Infocom 
discontinued releasing Model I versions of their games. After 
several discouraging phone calls to them I gave up on . ever seeing 
job game on my good old Mod I. So obviously ay eyes 
lit up when I saw the note abeut converting Mod III Infocom' to Mod 
1. I Immediately sat down to try the suggested process and failed 
to make it work at all. After talking with Bob Seaborn I found out 
mat he,w«s using NEWDOS/80 version 2, while I was using LDOS 
(and also that the location of the input buffer in the Mod I is 4318 
not 4218 so zap 21 25 42 to 21 18 43, not to 21 18 42). 1 switched 
to NEWDOS and still had no success. Remembering something else 
in the discussion with Bob I realized there was a password problem. 
Bob's solution was to change the SYSTEM parameter AA=N disabling 
passwords. However, there is another way. The Mod III Infocom 
command file looks for a data file with password SMC so using the 
ATTRIB command to set ACC and UPD passwords = SMC solved that 
problem. One could also zap the password from within the 
command file so that it looks for FILESPEC/DAT not 
FILESPEC/DAT.SMC. 

I then transferred the files to LDOS and again failed to have 
it work. I then discovered that the Infocom command file also 
looks at HIGHS which in Mod III is at 4411 and in Mod I is at 4049 
(so find 11 44 and change to 49 40. I found this in sector 1). 

At this point all worked fine and continued to work when 
transferred to hard disk. What a pleasure since at that point I 
used Hypercross to transfer Infocom data files from CP/M format as 
well as from MS-DOS format and they all worked fine. Only one 



command file from Mod HI is necessary. Just rename it to 
whatever the data file is. I am now happily playing Hitchhiker, 
Sampler, Zork I, Enchanter, and Cutthroats as CMD (all renamed 
from the Hitchhiker command file for Mod HI) and DAT files on hard 
disk on my Mod I. I imagine data files from CoCo will work too, 
but haven't tried that yet (I am trying to locate the Sampler focJflfx 
CoCo as listed in the latest Radio Shack Express Order Catalog but 
there doesn't seem to be a part number for it. Strange! It's" 
cheaper to experiment on the $7.95 size) 

That note in Northern Bytes has made me quite happy and I 
am very glad I have been subscribing to it. Keep up the good 
Work. I, for one, really appreciate your efforts for Mod I users. 

Mike RIskin 



[Glad to be of help, Mike, and sorry about the bug. 
thanks for the additional information!] 



And* 



Dear Jack, 

I am an avid consumer of NORTHERN BYTES which means I 
read and re-read every single issue several times. I only wish I 
had discovered you earlier than the Volume 5 issues. Thanks for 
your insights, wisdom, and sticking with the task of communicating 
to us ever shrinking body of "believers" in TRS-80 computers. 

I appreciate your comments, patches, and helpful hints in the 
use of ALLWRITE! program. I wish PROSOFT would put out a 
newsletter similiar to LESCRIPT, but I guess cost is prohibitive. I 
have used ALLWRITE! exclusively on a daily basis for more than a 
year now, having stomped to death several copies of 
SUPERSCRIPSIT due to its interminable habit of losing disk sectors 
and then refusing to load What it could salvage. I have yet to lose 
my first sector with ALLWRITE! and am very thankful to Chuck 
Tesler for his expertise. 

Secondly, thanks for SD/CMD program on PD#14. My mouth 
watered when I bought the Model ni version and now it is satisfied 
with the Model 4 version. I am looking forward to being able to 
imbed the date in my letters without having to worry about what it 
is! Thanks for your knowledge and for sharing it. 

Thirdly, since you seem to use ALLWRITE! also, I want to 
share with you a procedure I use which speeds up the movement 
considerably between editing and formatting modules by using 4 
MEMDISK as the primary storage disk. If you think it worthwUHe, 
feel free to share this procedure in NORTHERN BYTES, ft is not 
particularly ingenious, but it is very useful. 

NOTE THAT SQME LHfES THAT FOLLOW WILL NEED TO HAVE 
THE WORD "(prints)" REPLACED WITH THE DISK FILE NAME OF 
WHATEVER PRINTER IS BB^SSEB, If a second priater .hi In use, 
do NOT rename those filw m there is not room in MIMBfSK for 
another set of jMAleie !$««*' ■ ;.,. 

1. Execute the following JCL (or type each line individually 
from DOS). ■>■■■ 

- Reaameil/iaBd to al2/cmd < 
Renane al/flef to «18/def 
Rename »lf/e*id to alf8/cmd 

rtut^/ief to (prh*tw)2/'def 
Rename (prti»ter)/t«b to (printer)2/def 

2. Using AtLWWTE! write the following JCL and save it uitder 
"START/JCL" 

«d ;cm include ONLY if you have the SD/CMD 

program from PD disk #14. If you don't have it. 
• order it from TAS how. You need it! 
system (eysres=1) 
system (sysres=2) 
system (sysres=3) 
system (sysres=4) 
system (sysres=10) 
system (sysres=12) 
system (drive=2,driver="memdisk") 
d 
d 
y 

copy al2/cmd:0 to al/cmd:2 * 

copy al2/def:0 to al/def:2 
copy alf2/cmd:0 to alf/cmd:2 
copy (printer)2/def:0 to (printer)/def:2 
copy (printer)2/tab:0 to (printer)/tab:2 



al 

//stop 

3. Save this JCL file under file name START/JCL 

4. 60 to DOS and type "AUTO DO START" <ENTER> 

■*0**i 5. If you have the SD/CMD program from PD Disk #14, type 

« from DOS, SYSTEM (DATE=NO) [also be sure to use the SETDATE/FIX 

file from PD #14 - type DO SETDATE/FIX to Install the patches 

that keep TRSDOS from erasing the date from memory during a 

reboot -Editor] 

6. Reboot the disk. 

Now each time you boot the ALLWRITE! working disk, after 
the date is entered you can go for your first cup of coffee for the 
morning while the JCL file is working. You will find the speed up 
between Editor and Formatter significant. Unfortunately, there is 
not room in MEMDISK to copy SYSO/SYS which would allow one to 
make MEMDISK drive and make the system iruly efficient. 

Jack, If you think this is a worthwhile procedure to share, 
please use it on a Public Domain disk as well 

One little addition to the forum on disassembly of 

SUPERSCRIPSIT begun in NORTHERN BYTES Volume 7, Number 2: 
According to the manual, the S/CTL module is the serial driver for 
printers hooked to the RS-232C port rather than the Centronics 
parallel port. It can be eliminated from the disk to save space if 
not needed. 

LASTLY, have you considered putting NORTHERN BYTES on a 
disk format so we could each load It into our word processor? The 
size of type is hard on poor eyesight! Just an off-the-wall 
thought. 

Thanks for your time. Please don't give up on NORTHERN 
BYTES. It's about all that is left out here for us would be 

hackers! 

Steve Torkko - Faith Lutheran Church, 
2741 Sherman Avenue, North Bend, Oregon 97459 

[Thanks for passing along the information, Steve. We do put 
some text from NORTHERN BYTES on the Public Domain Library 
disks, but mostly it is program documentation. Most of my text 
flies are In ALLWRITE! format and have lots of formatting codes 
^Mncluded. Not only that, but I may print out an article and then 
t ¥ wind up actually using it six months or a year later - and Just try 
and find the original text file then! 

TAS Is seriously thinking about starting a BBS (using the 
SYSLINK program) and if they do and there is any demand for it, I 
may consider uploading the text of some articles, but I may just 
leave the ALLWRITE formatting codes in and let others remove 
them If they don't use ALLWRITE (or change them as needed if they 
don't use a DMP-2100P printer). However, this would take a lot of 
extra time and effort, which is something I don't have much more 
Of to put into NORTHERN BYTES.] 



Dear Jack, 

I would like to echo the expressions of others and compliment 
you on the new look of Northern Bytes. It is much easier to read 
and this is a very important factor for the over 40 crowd. 

Next, you have published several articles on self-booting 
system disks for the Model 4P for NEWDOS/80 and for DOSPLUS but 
I haven't seen any for MULTIDOS. I was talking to my good friend 
Bob White in Honolulu, known to some as the 'GURU OF THE WEST', 
and he mentioned he had discovered where to zap MULTIDOS J. .6 so 
it will boot on the 4P. 

On Track 17, Sector 0, change Relative Byte CD from 28 to 
42. Then make sure you have at least 10 Grans free on your 
system disk, and copy MODELA/III program to it from a TRSDOS disk 
and you will have a Self-Booting 4P system disk. 

This zap will only work on the 1.6 version of MULTIDOS and 
not on version 1.7. Bob said he will work on the zaps for the 1.7 
version and pass them along. 

Bill Baker 

[MULTIDOS is a great DOS, but does some things in a 
non-standard way that can give you a bit of grief if you're not 
careful. In particular, it may use non-standard filenames for 
k BOOT/SYS and/or DIR/SYS, or place the directory entries for those 
'files in non-standard places. I discovered the hard way that a 
single-density disk produced by MULTIDOS cannot be WRDIRPed by 
NEWDOS/80 because of this. I don't know if your zap corrects a 
similar non-standard condition, but thanks for sharing it.] 



Dear Jack, 

... The "big" computer news here [in Australia] is that the 
Model 4 Is "on special" until sold out (SA1499 against SA1999). As 
well, the "big names" in Radio Shack software (Profile 4-K 
SuperScripsit, etc.) are also "on special" at 1/4 to 1/3 of their 
normal price. No 4P's are left. We believe that there are no plans 
to introduce the 4D to Australia (Tandy Australia has not yet 
replied to two of our letters regarding the future of the Model 4 in 
Australia). We have heard that production of the 4D has ceased in 
the U.S.A. Is this true? We are not worried about hardware 
support - Tandy has a good reputation in this area - software 
support is something else! As far as I know TRSDOS 6.x is 
incompatible with any other computer currently sold in Australia. 

There is strong evidence of continuing demand for a quality 8 
bit computer that is marketed with an extensive range of good 
software (here in Australia). As a group, I would say that sales of 
the 4/4P have been taking customers away from the 1000/1000HD 
where there is more profit. Oh well, I suppose that's life 

(business!). 

Bert Smith 



[I could speculate on the fate of the Model 4D but it would 
Just be repeating rumors, something I don't want to do. If all else 
falls, consider the used computer market as a source for acquiring 
additional Model 4's and 4P's. As those people who always have to 
have the latest thing (or those who are terribly frightened of being 
stuck with an "obsolete" computer) sell their systems to "move up" 
(?) to MS-DOS, Model 4's and 4P's will undoubtedly begin to appear 
on the "pre-owned" market. 

As for software support, this may be "the best of times and 
the worst of times" for TRS-80 Model I/ffl/4 owners. True, some 
software vendors have pulled their TRS-80 product line completely, 
but others have responded by lowering prices and in some cases, 
placing programs that were formerly sold commercially into the 
public domain. I have given up trying to predict what will happen 
in the future - I'm usually wrong anyway - but with hundreds of 
thousands of Model I/III/4 TRS-80's still around and in daily use 
(Including my old Model I), I'm sure that there will be companies 
that will continue to offer software support for some time yet. 
Unfortunately, Tandy may not be one of them, from all appearances. 

On the other hand, if software producers are getting as much 
response from Model I/ni/4 owners and users as we have here at 
NORTHERN BYTES, then I can understand why they would want to 
move on to greener pastures. You can't produce software (or a 
newsletter!) for a market of only a few hundred people?] 



Dear Jack, 

... This old fashioned non-electronic mail is temporary. I had 
to terminate MCI... I need a service which will make (paper) 
deliveries, and answer my letters. I used MCI mail to send orders 
and letters to the U.S.A. for friends and club members. When I 
allowed MCI to use my credit card, they stopped sending monthly 
accounts; my letters asking fora accounts, probably a dozen, were 
ignored. I have three cases of MCI (paper) not reaching the 
addressee, two in Europe, one in the U.S.A. (LSI with an order for 
LDOS which you kindly looked Into for me). 

I could not recover my costs without an accounting. So, I 
kept my use of MCI to a minimum, but received a charge of $50 
and more each month. This was greater than the cost of Midas. 
Tony Domigan says this is not possible. If there were increased 
rates, I was never notified... 

I received, yesterday from MCI, a brief invoice summary for 
October 1985 (only) for $16, which amount had been charged in 
November, and again December, the October account was $76.48! 
Worse, it was addressed to 

Clifford Richards 

Boronia Road #3 

Australia 

But it found me! 

... The continuing arguments about the merits of NEWDOS 
versus LDOS/TRSDOS make good reading in Northern Bytes. 
NEWDOS was abandoned by its maker and Powersoft did not support 
double sided NEWDOS drives in Super Utility. I was forced to 
TRSDOS 6 and LDOS. After living through the unbelievable early 



r 



TRSDOS, Its very name was a dirty word and I vowed it would 
never again disgrace my VDU. 

I learned to respect TRSDOS 6 and LDOS 5.1.4. and to enjoy 
using them. There is no rule that you must be loyal only to one 
brand of DOS. My advice is, use, whatever software which turns 
you on. 

Don Singer (letter in Volume 7, Number 2) is correct about 
Profile 4 + not running with KSMPLUS on TRSDOS 6.2. "Inquire, 
Update,' Add," & number 1 on the runtime menu uses top memory, 
Profile 4 + works splendidly with good old "plain vanilla" KSM. 
Profile ID + (HD) on LDOS 5.1.4 is not so affected. 

Better, a brilliant program, SUPERLOG 4 makes and saves 
programmed keys. 19K is available for use and can be loaded from 
DOS without using any high memory. Stock paragraphs for letters 
can be inserted into Lazy Writer, addresses and notes can be kept. 
Useful, too, patches can be applied from SL4 (resident in Memory), 
printing commands and Help Files. The bad news is that Lazy 
Writer seems to be the only WP program to accept data. 

I bought a program called M1CR0ZAP from SOTA in Vancouver, 
Canada, which cost me over $100 Australian. It is still advertised 
in 80 Micro, they recently gave it (rightly) a poor review. Sota 
claimed it would Zap NEWDOS Double sided disks. It would not. I 
returned the disk in November last year so that they could send a 
copy of the program which would perform as advertised. They 
have not responded, nor to a further MCI letter. They must still 
be in business as they advertised it April 80-Mlcro. 

Do you know anything about them? That is the final last 
program I will buy without using It first, do you blame me? 

Samuel Wells asked about the efficiency of the 1 meg memory 
board for the Model m. Happy to tell him all I have found, I have 
the Alpha Technology (A1A) board in an old type Model 4, table top. 
The Model 4 runs faster than the III, so he would benefit more than 
I, from the increased speed of execution. 

Software to access the added memory is by different authors. 
I have TRSDOS 6 2, from Security and Software of Houston, Texas. 
Versions for NEWDOS, LDOS and CP/M are available. TRSDOS and 
LDOS give 5 drives. With NEWDOS/80, you lose a drive. I use the 
Ramdrive as Drive 0, under 



Drivi -t Rai Disk 03/29/86 

Orivt = 1 SUPERLOG 11/14/B5 

Drive :Z PRONTO 12/04/85 

Drive :3 DATADISK 03/17/86 

Drive '4 DATADI5K 03/27/86 



Free Space* 750.00K/ 894. 00K Files = 221/256 
Free Space • &5.00K/ 360.00K Fi les = 205/256 



Free Space » 
Free Space = 



72.00K/ 360.00K Files - 1B6/2S6 
555. 00K/ 720.00K Files =206/256 



Free Space = 273. 00K/ 720.00K Files = 213/256 



Ramdrive moves the drives up one. in the above, Superlog 
disk was the booting disk. I have the two banks of memory + 896K 
and can run both Superlog 4 and PRONTO or Double Duty in the old 
memory banks. Software has been written so that DOS will access 
all banks, the programs to use it this way will follow. Lescript 
already has a version which allows 1 Meg of copy (which would 
take Sam past his 120 page limitation). 

Loading takes less than a minute (the initial load takes more 
time because it writes a file to disk). Configurations can be made 
to different drives. If I used a drive other than :0, I would not 
need the system files, but there is no point in this. If I boot 
another DOS or Super Utility, Supermem finds Ramdisk was active 
and restores the files, that is if you did not turn off the power. 

I have printed here, a "DIR (S,I)". This shows that, with 
systems installed, there remains more than a double sided 80 track 
drive. The missing systems are System 13, System (used mainly 
in booting) and the Debug systems. One of the tricks, take an 
' example from Webster, is to leave DICT3/EW (which updates) on 
line in floppy or hard disk. Files updated of course, show a "+". 



Drive >0 Rai Disk 56 Cy I . DDEN. Free = 754. 00K / 896. 00K, Date 29-Mar-B6 
Filespec MOD Attr Prot LRL tRecs EOF File Size Ext Mod Date 



BACKUP/CUD 


' IP 


EXEC 


256 


26 


107 


A.00K 


1 


01-Hay-B5 


BOOT/SYS 


SIP 


EXEC 


256 


4 


255 


2.00K 


1 




DECKER + 




FULL 


256 


4 


76 


2.00K 


1 


lB-Apr-86 


DIR/CHD 




FULL 


256 


11 


244 


4.00K 


1 


05-Sep-85 


DIR/SYS 


SIP 


READ 


256 


64 


255 


16.00K 


1 




EDIT/CUD 




FULL 


256 


28 


205 


B.00K 


1 


24-0ct-85 


FORMAT/CHD 


IP 


EXEC 


256 


19 


14 


6.00K 


1 


01-Nay-85 


FT 




FULL 


256 


26 


116 


8.00K 


1 


07-Ott-B5 


HEADING 




FULL 


256 


2 


128 


2.00K 


1 


17-Apr-66 


HEADING/CO 




FULL 


256 


2 


168 


2.00K 


1 


29-Mar-fl6 



1FC/CHD 




FULL 


256 


32 


164 


B.00K 


1 02-Hiy-64 


IFCL1ST/CND 




FULL 


256 


5 


86 


2.00K 


18-Apr-84 


L/CNO 




FULL 


256 


29 


93 


8.00K 


lB-Har-86 


LPNT/CMD 




FULL 


256 


27 


117 


B.00K 


12-Se P -B5 


Pl/CMD 




FULL 


256 


2 


16 


2.00K 


1B-Dec-B5 


SYS1/SYS 


SIP 


NO 


256 


6 


65 


L.Vsm 


14-5tp-85 


SYS10/SYS 


SIP 


NO 


256 


2 





2.00K 


15-Mar-64 


SYSU/SYS 


SIP 


NO 


256 


4 


253 


2.00K 


15-r1ar-84 


SYS12/SYS 


SIP 


NO 


256 


4 


235 


2.00K 


15-Har-e* 


SYS2/SYS 


SIP 


NO 


256 


6 


40 


2.00K 


14-S»p-B5 


SYS3/SYS 


SIP 


NO 


256 


4 


44 


2.00K 


15-Har-fl4 


SYS4/SYS 


SIP 


NO 


256 


6 


26 


2.00K 


15-ftar-Bi 


SYS6/SYS 


SIP 


NO 


256 


50 


242 


14.00K 


U-Sep-85 


SYS7/SYS 


SIP 


NO 


256 


26 


178 


B.0K 


15-Mar-B4 


SYSB/SYS 


SIP 


NO 


256 


37 


14 


10.0K 


15-f1ar-8* 


U/CLV 




FULL 


256 


15 


162 


4.00K 


03-5»p-85 


XI 




Fill 


256 


1 


255 


2.00K 


27-Nov-B5 


X5 




FULL 


256 


1 


255 


Zt0fl\ 


06-Hay-85 


X9 

S222232S22SBSS 




FULL 


256 


1 


255 


2.00K 


28-AU9-95 



& 



29 Files out of 29 selected, Space = 142. 00K 



A problem with NEWDOS on Ramdrive is that it seems 
impossible to increase directory space from 10 sectors. With all 
the NEWDOS fans out there, will it be long before someone writes 
the zaps which will enable the fifth drive? 

Superscripsit would run faster and smoother... Programs I 
use, Multiplan and TKiSolver, used to run at snail's pace and I am 
not patient by my nature. Every Model 4 program improves to my 
liking, including Profile 4 +, it seems to give them new life. 

Cliff Richards 

[Cliff, sorry about hacking up your letter - you made several 
points and I tried to keep as many of them in as possible. 

Regarding MCI, I have noticed that their efforts toward 
keeping the small volume user have become almost nil. I suspect 
that they are trying to position themselves as an extension of the 
electronic mail systems now used by many large companies. AT&T 
Is starting a new electronic mall service (called AT&T Mail, 
naturally) and* what little I have read about their pricing structure 4k~~ 
seems to indicate that they are going to be almost a clone of MCI J| 
Mail (at perhaps a slightly lower cost). This could make a big '~ 
impact on the bottom line of MCI Mail. It would be interesting to 
see these two communications giants get into an electronic mail 
"price war"! 

I don't know much of anything about SOTA Computing 
Systems, Ltd. except that I have heard that their "Fast 80 BBS" 
leaves something to be desired. If anyone has had any experience 
with this firm or their products, please let us know about it. 

I don't think many software manufacturers would mind if you 
"try before you buy", so long as you actually DO buy if you like 
and Intend to use the program (if any software manufacturer writes 
in to disagree with this opinion, I warn you now that you'll 
probably wish you hadn't. With all the junk that's been marketed, I 
think it's high time for a little up front disclosure of what a 
prospective purchaser is going to get. Note that I'm NOT condoning 
"piracy", but I'm also not condoning the software vendors that 
produce shoddy products and then try to hide behind the copyright 
laws when a customer asks for a refund). 

Anyway, thanks for all the information you've passed along!] 



Baa Hum-BUG BUG BUG 

That's exactly what is in my article on creating a 
double-sided self-booting NEWDOS/80 disk for the 4P (See Volume 7 
Number 2 page 5). Step 9 in the procedure says: "Move to sector 
171.", it should say, "Move to sector 172." Sorry about the 
Inconvenience. 

Recently there have been several questions regarding 
SuperScripslt's file structure. About a year ago I ran across the 
following article written By Tom Price. I believe that Tom was the 
author, or at least one of the authors, of Model 4 Scripslt. 

SuperSCRIPSIT Document FUes 

This article will explain in detail the structure of 4t^ 
SuperSCRIPSIT document files, which may be of assistance in jPy 
repairing damaged files with the aid of a 'zap' program or file 
editor. 



Each SuperSCRIPSIT file has four distinct areas: 
Record - Document header and other vital information. 
Records 1 thru 4 - Disk block index. 
Record 5 - List of new page markers. 

Records 6 thru to the end - Disk blocks containing the text. 
^ Before getting into the details, it is necessary to define the 
meaning of a "disk block". It is IK in size, consisting of four 
256-byte records. Each block contains a 7-byte header (explained 
later), up to 985 bytes of text, paragraph and control Information, 
and 32 bytes of overflow space to accommodate minor changes 
without starting a new block. Each of the four possible 
header/footer pages will occupy its own block, if present. A 
document may not contain more than 174 blocks. Blocks are 
numbered from to 173, with Block starting at document 
record 6. 

Document Record - Header 



Description 

ID - Always EO, identifies a SS document 

24 bytes for the document name 

Maximum lines per page in half-line increments 

Pitch - PS=00 

Line spacing in half-line increments 

8 bytes for printer driver filename 

Page number to start footers 

Page number to start headers 

Odd footer length in half-lines 

Odd header length in half-lines 

Even footer length in half-lines 

Even header length In half-lines 

Horizontal cursor position on video display at document 

close 

Vertical cursor position on video display at document 

close 

Column position of cursor at document close 

Document line number of cursor at document close 

Tab line (21 bytes) 

Tab line 1 (21 bytes) 

[NOTE] - The 21 byte tab line contain 168 bits, each bit 

representing a column position. If a bit is set, there is a 

tab stop at that position. 

Bit map of disk block allocation (23 bytes) 

[NOTE] - The first 174 bits of this map represent disk 

blocks 0-173. If a bit Is set, that block is allocated. If 

the bit is reset, the block is available. 

Disk block number of odd footer (if any) 

Disk block number of odd header (if any) 

Disk block number of even footer (if any) 

Disk block number of even header (if. any) 

Disk block number of tab line table (FF*none) 

[NOTE] - This block has space for 48, 21 byte tab lines, 

which added to the two available in this record, make up 

the maximum of 50 tab lines per document. 

Number of tab lines currently assigned to the document. 

Name of Author (32 bytes) 

Name of Operator (32 bytes) 

Comments (32 bytes) 

Not currently used. 



Byte 




00 




01 - 


18 


19 




1A 




IB 




1C - 


23 


24 - 


25 


26 - 


27 


28 




29 




2A 




2B 




2C 





2D 

2E 

2F - 30 
31 - 45 
46 - 5A 



5B - 71 



72 
73 
74 
75 
76 



77 

78 - 97 
98 - B7 
B8 - D7 
D8 - FF 



Disk Block Index - Records 1 thru 4 

Byte 00 of the index contains the number of active text 
blocks in the entire document, not including any blocks assigned to 
headers, footers or tab lines. Starting with Byte 01 of Record 1, 
there is room for 174, five-byte groups, each group representing a 
disk block containing text. The groups are arranged in the actual 
order of the document's text as printed. The meaning of each byte 
in a group is as follows. 

Byte Description 

00 Disk "block" number (range 00 to AD). If the value is FF, 

it denotes the end of the index and all following bytes 
have no meaning. The actual record number In the file 
can be found by multiplying the block number by 4 and 
adding 6. 
k 01 - 02 Actual length of valid text in the block 

03 - 04 Number of lines of text in the block. The upper nibble 
of byte 04 is used to contain block control information as 
follows: 



Bit 7 - set if the first line of the block is a whole line, 

not part of a line from a previous block. 
Bit 6 - set If the block contains an open marker '[' 
Bit 5 - set if the block contains a close marker ']' 
Bit 4 - set if the block has been changed (edited) 

List of New Page Markers - Document Record 5 

This record contains the location of any hard page breaks (') 
in the document. Byte 00 is the number of markers in the 
document. foUowed by 127 pairs of bytes (byte FF is not used). 
Each non-zero byte pair contains the line number, relative to the 
start of the document (line 0), where a page break is located. 

Disk Block Structure 

Each disk block starts with a 7 byte header. Bytes 00-01 
contain the number of text bytes following the header. This value 
must be identical to bytes 01-02 of the index group for this block. 
Bytes 02-06 of the header comprise the default paragraph format 
for the block as follows. 

Byte Description 

02 Column containing the left margin 

03 Column containing the right margin 

04 Column containing the indent tab 

05 Number of the tab line in use. 

06 Control byte - following bits are used: 

Bit 4 - Set if the paragraph is frozen 
Bit 3 - Set if the paragraph is centered 
Bits 2 thru - used to indicate line spacing in 
half-lines. 

After the header comes the actual test. If the block starts 
with a complete paragraph (line), there will be a 5 byte paragraph 
group Identical in format to the default group in the block header 
followed by an EF control byte indicating the end of the paragraph 
info. Then comes the actual text of the paragraph, terminated by 
an FD, denoting a hard carriage return. This will be followed by 
a 5-byte paragraph info group for the next paragraph, followed by 
an EF. and so forth until the number of bytes shown in Bytes 00-01 
of the block has been reached. Everything after this point is 
MEANINGLESS; the text continues on the next block shown In the 
disk block index. In the text, the following control codes may be 
encountered: 

Code Meaning 

E5 Null - deleted text 

EC Soft page marker 

ED Hard page marker 

EF End of paragraph control info 

FO Start block marker (shows as '[' on screen) 

Fl End block marker (shows as ']' on screen) 

F2 Normal tab 

F3 Align tab 

F5 'Code' for printer control (underline, bold, etc.) 

F6 Filler bytes for insert mode 

F7 Space .compression for two succeeding spaces (delta) 

F8 Soft carriage return replacing a space 

F9 Soft carriage return replacing a double space 

FA Hard hyphen 

FB Hard space (for hyphenation) 

FC Hard carriage return during inserting 

FD Hard carriage return 

FF End of Ale/text 

Armed with the above information, a user with a clobbered 
file may be able to zap it to the point where It will load properly 
and allow final repair with the normal SuperSCRIPSIT editing 
functions. The information in the disk block index MUST agree 
with what is actually contained in the disk blocks themselves. For 
example, when the FF byte Is encountered in the index, it is a sign 
that the previous block should contain the FF end of text code 
somewhere among the valid bytes of that block. 

Tom Price 
02/17/84 

[Letter resumes here] 

I know this information has helped me on several occasions, 
what I would really like is to find out why SuperScripslt crashes. I 
have loaded SuperScripslt files only to find a section with garbage 
(control) characters which defy deletion. Attempting to delete 



X 



usually results In locking up the program or forcing a reboot, or I 
find my cursor out In never never land with a tab line that Is 
impossible to correct. I think the problem is that the byte count 
In the block index does not match the byte count at the beginning 
of the block, but how did it get that way??? 

Another problem that I have had is that SuperScripsit has 
once or twice written a file right on top of the boot track, and of 
course you know what that does to a disk. I have checked all the 
SuperScripsit files against the original masters (I'm using version 
1.3 on TRSDOS 1.3) and checked the DOS files against an original 
master and everything seems fine, anyone out there with any 
ideas??? 

I guess that's why I use Scripsit, with PowerSoft's PSCRIPT 
patch, instead of SuperScripsit. It has never crashed. 

Art Rasmussen 
612 West HiUcrest, Keene, Texas 760S9 

[This information should be a SuperScripsit hacker's delight. 
Thanks for sending it, Art!] 



Dear Jack: 

With mud in my face, I am reporting a dual error in patches 
to TRSDOS 1.3 that I sent you by my letter of 2/9/86. The patches 
were publllshed in Northern Bytes Volume 7, Number 2. I received 
the issue just a few days ago but the error was caught by reader 
William Baker of Independence, Missouri. 

I am referring to my two patches necessary to augment the 
patches in Volume 6, Number 8, for changing the disk track count 
for TRSDOS 1.3. I had reversed the "asterisk" values in the two 
patches and also had forgotten that one of the two patches 
overlaid a corrective patch that I had previously written for 
TRSDOS 1.3 

Corrected, the two patches should be: 

PATCH *7 (ADD=54EF,FIND=27,CHG=XX) 
PATCH »14 (ADD=4EB8,FIND=28,CHG=xx) 

- where "xx" should be replaced by "28", "2A", or "50" for 40, 42, and 

' 80 tracks respectively. 

1 For the curious, the patch to overlay 7 is in the middle of 

the TRSDOS backup utility. Before doing a backup, TRSDOS looks 
to ensure that all tracks that are allocated on the source disk 
exist on the destination disk. Without the corrective patch above, 
TRSDOS 1.3 only compares the first 39 tracks. That is no problem 
unless a higher track is allocated on the source disk but Is locked 
out on the destination disk. 

I had stated that the *7 patch had a "FIND=28". That is the 
value that should be there. As distributed, TRSDOS 1.3 instead uses 
"27" which is wrong. To correct this, I suggest that all TRSDOS 1.3 
users apply the *7 patch above. If one has standard 40 track 
drives, the patch is: 

PATCH *7 (ADD=54EF,FIND=27,CHG=28) 

The second patch, to overlay 14, is part of the rarely used 
but documented SRAMDIR system call. The above patch becomes 
necessary when the disk track count is changed so that $RAMDIR 
returns the correct number for free space information (note that 
this is not the routine used by the TRSDOS 1.3 FREE command). 

The SRAMDIR call is quite useful and indeed was carried over 
to TRSDOS 6. The call dumps key information about active files to 
a RAM buffer. I suspect the call is often ignored due to a major 
bug: SRAMDIR miscounts file name lengths when some files have 
extensions and some do not. The following patch corrects this bug: 

| PATCH *14 (ADD=4F00,FIND=0E,CHG=0F) 

PATCH *14 (ADD=4F11,FIND=010D000901,CHG=0E0D090E03) 
PATCH *14 (ADD=4F16,FIND=0300BE2810,CHG=BE2812F53E) 
PATCH *14 (ADD=4F1B,FIND=F53E2F1213,CHG=2F1213DD2B) 

This is a bona fide bug and the patch should be considered 
mandatory. 

The TRSDOS manual (mine at least) does not mention that 
SRAMDIR skips "system" files (I refer to files with a system 
attribute in a TRSDOS 1.3 directory listing — not the "true" TRSDOS 
1,3 system overlays). The following is an optional patch to 
SRAMDIR that forces SRAMDIR to also return information about the 
system files: 



PATCH *14 (ADD=4EEB,FIND=CB76,CHG-AF00) ' 

Two last comments about Volume 7, Number 2: In response to 
Vern Hester (as if he did not know), the Model 4 Technical 
Reference Manual states that the speed for the disk drive Is 300 
RPM plus/minus 1.5k. I am not a hardware person (I was forced to «^--. 
buy the book to get the TRSDOS 6 software calls). As a y 
layperson, I did not see anything that said that drives should be "'* 
adjusted off 300 RPM— just that they could be. 

Finally, for Art Rasmussen (Volume 7, Number 2, page 5), the 
"secret" about bit 5 of byte CD of the GAT sector was mentioned 
in the newsletter of SAGATUG, my local TRS-80 club, and 
mentioned with credit to us (and others) in Northern Bytes Volume 
6, Number 3, at page 13. 

Andy Levinson 
11575 Sunshine Terrace, Studio City, California 91604-3835 

[Andy, your letter arrived just in the nick of time to be 
published in this issue. I had already written my remarks in THE 
EXTERMINATOR about this problem, but decided to reprint your 
letter anyway because you go Into the problem in a lot more 
detail than I did. Thanks for all of the information!] 



REPLACE YOUR Z-80 WITH A SUPER CHIP 

David G. Huffman (1345 Williams Street, Des Moines, Iowa 
50317) recently sent me some information on a project that he has 
been working on. Apparently the Z-80 CPU used in the TRS-80 
Models I/III/4 and in the LNW computer (which is what David uses) 
can be replaced with a Hitachi HD64180 CMOS Microprocessor. The 
HD64180 is NOT pin-compatible with the Z-80, but offers much more, 
thus hardware types may wish to tackle a conversion project. 

Some of the features of the HD64180 include: Fast operating 
frequency (up to 10 MHz). On-chip Memory Management Unit 
supports 512K byte memory and 64K I/O address space. 
Two-channel Direct Memory Access Controller with memory-memory, 
memory-I/0, and memory-memory mapped I/O transfer capability. 
WAIT input and Wait State Generator for slow memory and I/O 
devices. Programmable dynamic RAM refresh addressing and timing. 
Two-channel, full duplex Asynchronous Serial Communication 
Interface with programmable Baud Rate Generator and MODEM 
control signals. Clocked serial 1/0 port with high speed operation 
(up to 300K bps at 6 MHz). Two-channel 16-bit Programmable 
Reload Timer for timing and output waveform generation. 
Programmable interrupt controller manages 12 interrupt sources (8 
internal, 4 external) with three interrupt modes. "Dual Bus" 
interface compatible with all standard memory and peripheral LSI. 

Enhanced standard 8-bit software architecture features 
include: Upward compatible with existing Z-80, 8085, and 8080 
system and application software. Optimized for higher performance 
of standard 8-bit operating systems (e.g. CP/M80). Enhanced 
instruction set including high speed multiply. I/O address relocation 
for board level product compatibility. SLEEP, IOSTOP, and SYSTEM 
STOP low power modes. Many existing Z-80/8080 instructions 
require fewer clock cycles to execute, thus, even with no change 
in CPU clock speed, programs may run 10* to 20% faster. 

David reports that there is only one problem in replacing a 
Z-80 with a HD64180, and that is that the HD64180 does not 
recognize the "undocumented" Z-80 instruction set (those machine 
language instructions that, although they do not appear in the 
official Z-80 instruction set, nevertheless are recognized by 
virtually every Z-80 ever made). David has found that a surprising 
amount of TRS-80 software makes use of the undocumented 
instructions. In his LNW conversion, he has figured out a way to 
divert those instructions to a section of code that translates the 
"undocumented" instruction to standard Z-80 code, executes it and 
returns to the original program. 

It is my understanding that David is working on a Model 4 
conversion using the HD64180. If you are a hardware hacker, you 
may wish to obtain data and specification sheets on this chip from 
your nearest Hitachi representative (or a Hitachi regional office in 
Burlington, Massachusetts; Dallas, Texas; Itasca, Illinois, San Jose, 
California, or Woodland Hills, California). In Canada contact an 
office of Longman Sales, Inc. (Mississauga, Ontario; Ottawa, Ontario; 
or Kirkland, Quebec). ^ir* 

Will this chip spawn the next generation of modifications for w 
the Models I/III/4? It certainly seems to offer a lot of potential! 






PROFILE 4+ ENHANCEMENT PROGRAMS 
by Don Singer 

W; At work I use Radio Shack's PROFILE* database manager on a 

riodel II. Over the years we have added every enhancement 
offered by Radio Shack and the Small Computer Company, resulting 
in a very sophisticated and powerful, but expensive (about $800) 
package. PROFILE III PLUS offers many of the same features for 
my 4P, but again requires several expensive enhancements. Also, 
it runs only under TRSDOS 1.3, which I do not want to use. 
PROFILE 4+ offers most of the features I want at a more 
reasonable price, and runs under TRSDOS 6 which I like, but some 
capabilities are still lacking. Partly at the urging of Dwain 
Sutton, who uses PROFILE 4+ extensively in his ranching business, 
I wrote three BASIC utilities to perform some of these functions. 
Dwain wrote a menu program to run my programs. 

Each PROFILE database (or "file") consists of up to four 
ASCII files called "segments", having the same filename with 
different extensions (/KEY, /DAT. /DA2, /DA3). The records in 
each segment can be 1 to 256 characters long, and segments from 
one file can be on different drives. Data can be sorted on up to 
five fields and selected using Boolean operators on up to 12 
fields from any segment. Sorts can be stored in up to six Index 
files (ending in /IX1 or /IY1-5), and indexes can be built from 
other indexes. PROFILE has many other powerful features 
including sophisticated entry screens, limited math formulas, 
multiple label and report formats (also somewhat limited), the 
ability to re-structure files after data is entered, and the 
ability to build a small file and expand it as data is added. 

To use these programs, you should understand PROFILE'S file 

structure, and know how to build PROFILE Indexes to achieve the 

desired results. You should also be able to manipulate and 

RENAME files in TRSDOS and understand how to enter BASIC with 

the proper number of files and RON a program. You should also 

be able to deal with an aborted BASIC program. I have made 

liberal use of error trapping, but have not trapped every 

possible error. (The programs have detailed on-screen 

^-instructions concerning the number of files and other information 

^^Neded to use them. - The instructions can be bypassed by the 

' v user. Also, programs may be run individually or called from the 

menu program, RM/BAS.) 

One of PROFILE'S problems is that "deleted" records are 
filled with blanks and kept in the file. If new data is not 
added, the blank records accumulate, taking up valuable disk 
space, and slowing sorting and selecting. SUBFILE (SUBFIL/BAS) 
removes these blank records and writes all records with data to 
a destination file specified by the user. The destination file 
segments can then be RENAMED to the original, source filename 
and used in PROFILE. SUBFII. can also write a destination file 
containing non blank records selected with a PROFILE Index, (e.g. 
to archive inactive records before deleting them from the active 
database). 

REPLACE/BAS, lets you fill fields of your choice With a 
"literal" (e.g. "0.00" for Starting Balance, "1986" for Current Year 
or a series of spaces to "blank" a field). The literal can be 
left or right -justified within the field (padded with spaces). 
Again, this can be done for all records in a file, or for specific 
records chosen with a PROFILE Index. 

TRANSFER/BAS, is a "poor man's relational database". It 
transfers data in specified fields between two PROFILE data files. 
■ The field and segment, numbers in the source and data fields may 
be different. (For example, data from field #4 in segment #1 of 
the source file may be moved to field #21, in destination file 
segment #3.) Data may be moved from EACH record in the Source 
File to the "same- numbered" record in the Destination File, or 
SOURCE and DESTINATION records may be selected using a PROFILE 
Index from each file. 

These programs have the potential to scramble data if you 
misunderstand or don't follow the directions, use the wrong 
Index(es), or build Index(es) incorrectly for the desired result, 
so it's important to have good backups of the data. I suggest 
checking the data carefully after using these programs to verify 
^_that it is OK. Be sure to check the results before KILLing your 
iF^Sld files, deleting archived records, or using your new data files 
for large printouts or other applications. This is not meant to 
discourage use of these programs, but to encourage CAREFUL use. 
So fat the programs have worked well, and an problems have been 
found. 



RENAME/BAS allows you to create a new database by 
modifying an existing one without having to RENAME each file 
individually in TRSDOS. 

RM/BAS is a menu program which runs the above programs 
from a menu. 

If these programs are converted to Model III BASIC, they 
should work with PROFILE III data files also, but as far as I know 
this has not been tried. 

SUBFIL/BAS 
* SUBFIL/BAS - Placed in the public domain by 



Archives records from PROFILE 4 data file to a 
file, while REMOVING records "deleted" under 



10 REM 

DAS, 09/15/85 

20 REM 

destination * 

30 REM 

PROFILE 4(tm) * 

40 REM 

50 CLS: PRINTS (6.20), CHR$(16);" SUBFILE FOR PROFI 

L E 4 " 

60 PRINT: PRINT TAB(29) " By Don Singer 

70 PRINT TAB(31), "3726 Skyline Drive" 

80 PRINT TAB(29). "SCottsbluff, Ne 69361" 

90 FOR 1=1 TO 3000:NEXT 

100 REM 

110 REM * INITIALIZE AND INSTRUCTIONS * 

120 REM 

130 CLS: CLEAR 5000:DEFINT A-Z: DIV*=STRING$(80,"="): CN$-"T0 

continue, press <ENTER>..." 

140 EX$(1)="/KEY": EX$(2)="/DAT": EX$(3)-"/DA2": EX$(4)="/DA3" 

150 PRINT* (2,10), "Do you want instructions (Y/N)?": GOSUB 5030: 

IF YN$="N" GOTO 430 

160 CLS: PRINT "This program can be used in two ways:" 

170 PRINT; PRINT TAB(5) " > (A) Remove the blank records 

'Deleted' by PROFILE, and write" 

180 PRINT TAB(14) "all records with data to a destination file" 

190 PRINT: PRINT TAB(5) " > (B) Archive selected records to a 

destination file using" 

200 PRINT TAB(14) "a PROFILE Index" 

210 PRINT: PRINT " Before starting either option, you must be 

ready to supply the program with the following information:" 

220 PRINT: PRINT TAB(5) "1. The name of your PROFILE (Source) 

file." 

230 PRINT TAB(5) "2. The number of segments in your Source file." 

240 PRINT TAB(5) "3. The name of your Destination file." 

250 PRINT TAB(5) "4. The disk drive # for EACH segment of the 

Destination file." 

260 PRINT; PRINT "To continue press <ENTER>...": GOSUB 6000: CLS 

270 PRINT "To Archive from an index, you must, also know:" 

280 PRINT; PRINT TAB(5) "5. Which PROFILE Index you want to use 

PRINT Index (by #) or INQUIRY." 

290 PRINT TAB(5) "6. The logical record length (LRL) of the Index 

file." 

300 PRINT: PRINT "The LRL is listed in the directory (DIR) on your 

data disk." 

310 PRINT "The INQUIRY index ends in 71X1'. THE PRINT Indexes 

end in 7IY1', 7IY2' etc." 

320 PRINT: PRINT "(You will have a chance to see a DIRectory 

later!)" 

330 PRINT: PRINT "Finally, enter BASIC with FILES= 2*(No. of 

segments) + 1." 

340 PRINT: PRINT: PRINT: PRINT: PRINT DIV$: PRINT "Do you need to 

exit the program now to get some of this information" 
350 PRINT "or to re enter BASIC with the proper number of FILES 
(Y/N)?" , „ 

360 PRINT: PRINT D1V$: GOSUB 5030: IF YN$="Y" THEN RUN "RM/BAS 

400 REM 

410 REM 

420 REM 

430 CLS: INPUT "Name of Source fi]e";SF$:IF LEN(SF$)>8 THEN PRINT 

"8 CHARACTERS OR LESS, PLEASE": GOTO 430 

440 SF$ SF$^STRING$(8 -LEN(SF$),48) 

450 INPUT "How many segments (1-4)";NS: IF NS<1 OR NS>4 GOTO 450 

460 IF NS 1 THEN GOTO 490 

470 PRINT: PRINT "Did you remember to enter BASIC with ";2*NS+1;" 

FILES?" 

480 PRINT "If not, do you want to exit now to do it (Y/N)?": GOSUB 

5030: IF YN$="Y" THEN RUN "RM/BAS" 

490 PRINT: INPUT "Name of Destination fUe";DFS:IF LEN(DF$)>8 THEN 

PRINT "8 CHARACTERS OK LESS, PLEASE": GOTO 490 

500 DK$. DF$<STRING$(8 LEN(DF$),48) 



INPUT USER DATA 



510 FOR 1=1 TO NS 

520 PRINT "DESTINATION Drive # (0-3) for segnent # ";I;:INPUT D$(I) 

530 IF LEN(D$(I))>1 THEN PRINT "Enter a muter from to 3 

WITHOUT a colon (:)":GOT0 520 

540 NEXT I 

550 PRINT: PRINT "Do you want to use an Index?";GOSUB 

5030:IX$=YN$: IF IX$="N" GOTO 640 

560 PRINT: INPUT "Index to use <I> OR <1~5>";I$ 

570 IF I$="I" OR I$="i" THEN I$="/IX1" ELSE I$="/IY"+I$ 

580 PRINT: PRINT "Do you want to see a DIRectory of your Index 

files to read LRL's ?" 

590 GOSUB 5030: IF YN$="Y" THEN CLS: SYSTEM "DIR /I": PRINT CN$: 

GOSUB 6000 

600 INPUT "LRL for Index";LRL 

610 CLS: PRINT "»** WARNING ***": PRINT: PRINT "If something halts 

the program during data transfer (eg. a Disk I/O error)," 

620 PRINT "type the word 'CLOSE' and press <ENTER> at the 'Ready' 

prompt to avoid damage" 

630 PRINT "to your files!" 

640 PRINT: PRINT DIV$: PRINT "Insert Source and Destination data 

disks and press <ENTER> when ready.":GOSUB 6000 

700 REN 

710 REM * GET SEGMENT LENGTHS * 

720 REM 

730 OPEN "R",l,SF$+"/MAP" 

740 IF LOF(1)=0 THEN GOTO 10090 

750 IF LOF(l)<>NS THEN GOTO 10030 

760 FIELD 1, 1 AS X$,2 AS L$ t 253 AS Y$ 

770 FOR SEG=1 TO L0F(1) 

780 GET 1, SEG 

790 LS(SEG)=CVI(L$) 

800 IF SEG=1 THEN EX$(1)="/KEY" ELSE IF SEG-2 THEN EX$(2)="/DAT" 

810 IF SEG=3 THEN EX$(3)="/DA2" ELSE IF SEG=4 THEN EX$(4)="/DA3" 

820 NEXT SEG 

830 CLOSE 

1000 REM 

1010 REM * OPEN DATA FILES FOR I/O * 

1020 REM 

1030 FOR SEG=1 TO NS 

1040 OPEN "R", SEG, SF$+EX$(SEG), LS(SEG) 

1050 OPEN "R". SEG+NS, DF$+EX$(SEG)+":"+D$(SEG), LS(SEG) 

1060 FIELD SEG, LS(SEG) AS SK$(SEG) 

1070 FIELD SEG+NS, LS(SEG) AS DK$(SEG) 

1080 NEXT SEG 

1090 IF IX$'"N" THEN GOTO 1230 ELSE IB=2*NS+1 

1100 OPEN "R", IB, SF$+I$,LRL 

1110 FIELD IB, LRL-3 AS Xl$, 2 AS DR$, 1 AS Yl$ 

1200 REM 

1210 REM * SETUP TO ARCHIVE FILES USING INDEX * 

1220 REM 

1230 CLS: N-0 

1240 IF IX$="N" THEN GOSUB 2030: GOTO 1310 

1250 FOR LR=4 TO LOF(IB) 

1260 PRINT985, "Processing record # ";LR-3 

1270 GET IB, LR 

1280 DR=CVI(DR$) 

1290 GOSUB 3030 

1300 NEXT LR 

1310 CLOSE: PRINT: PRINT N;" Records Transferred.": PRINT: PRINT 

CN$ 

1320 GOSUB 6000: RUN "RH/BAS" 

2000 REM 

2010 REM * SETUP TO READ FILES WITHOUT INDEX * 

2020 REM 

2030 FOR DR^l TO L0F(1) 

2040 PRINTS85, "Processing record t ";DR 

2050 GOSUB 3030 

2060 NEXT DR 

2070 RETURN 

3000 REM 

3010 REM 

FILES * 

3020 REM 

3030 FOR 1=1 TO NS 

3040 GET I.DR 

3050 NEXT I 

3060 IF LEFT$(SK$(1),1)-CHR$(0) THEN GOTO 3130 

3070 N-N+l 

3080 FOR 1=1 TO NS 

3090 LSET DK$(I) SK$(I) 



^ 



* READ FILES, DISCARD EMPTY RECORDS, WRITE NEW 



3100 PUT I+NS, N 

3110 NEXT I 

3120 PRINTS120, "Last record transferred ":N 

3130 RETURN 

5000 REM 

5010 REM * INPUT ROUTINES * 

5020 REM 

5030 YN$=INKEY$: IF YN$="" GOTO 5030 

5040 IF YN$="y" THEN YN$-"Y" 

5050 IF YN$="n" THEN YN$="N" 

5060 IF YN$<>"Y" AND YN$o"N" THEN GOTO 5030 

5070 RETURN 

6000 EN$=INKEY$: IF BN$="" GOTO 6000 

6010 IF EN$<> CHR$(13) THEN GOTO 6000 ELSE RETURN 

10000 REM 

10010 REM * ERROR ROUTINES * 

10020 REM 

10030 CLOSE: CLS: PRINT 

10040 PRINT "* ERROR *": PRINT 

10050 PRINT "The # of segments you input does not match the # of 

segments in" 

10060 PRINT "file "+SF$+"/MAP. Please check your data and start 

over." 

10070 PRINT: PRINT "Press 'Y' to re enter file data, 'N' to quit": 

GOSUB 5030 

10080 IF YN$="Y" THEN GOTO 430: ELSE PRINT: PRINT "Files closed": 

PRINT: PRINT CN$: RUN "RM/BAS" 

10090 CLOSE: KILL SF$+"/MAP"; CLS: PRINT 

10100 PRINT "» ERROR *": PRINT: PRINT "File ";SF$;"/MAP";" Not 

Found." 

10110 GOTO 10070 

65000 REM * PROFILE is a trademark of Tandy Corporation * 



REPLACE/BA5 
IB rem * REPLACE/BAS - Placed in the public domain by 

DAS, 01/10/86 * 
20 REM * Replaces user specified field(s) in a PROFILE 

4(tm) data * 

30 REM * file with specified Literal(s) for all records 

or for * /\ \ 

40 REM * records selected using a PROFILE index I 

* 



50 REM 

60 CLS: PRINTS (6,20), CHR$(16);" REPLACE FORPROFI 
L E 4 " 

70 PRINT: PRINT TAB(29) " By Don Singer 
80 PRINT TAB(31), "3726 Skyline Drive" 
90 PRINT TAB(29). "Scottsbluff, Ne 69361" 
100 FOR 1=1 TO 3000:NEXT 
200 REM 

.210 REM * INITIALIZE AND INSTRUCTIONS * 

220 REM 

230 CLS: CLEAR 5000:DEFINT A Z: niV$ STR1NG$(79," ■"): ER$ "*** 
ENTRY ERROR - TRY AGAIN ***": CN$«"To continue, press <ENTER>..." 
240 EX$(1) "/KEY": EX$(2)-"/DAT": EX$(3)= VDA2": EXS(4) VDA3" 

250 DIM 
DT*(100),DTR$(100),H$(100),LD(100),NC$(37),NC(37),JU$(5,37),C(5,37) 

260 PRINT* (2,10), "Do you want instructions (Y/N)?": GOSUB 5030: 

IF YN$-"N" GOTO 630 

270 PRINT: PRINT TAB(33) »***««**********" 

280 PRINT TAB(33) "*** WARNING ***" 

290 PRINT TAB(33) «*****««**»»**«*" 

300 PRINT: PRINT: PRINT "This program manipulates your valuable 

PROFILE data files, and has the power" 

310 PRINT "to RUIN them if you make a mistake! So for your own 

protection, PLEASE have" 

320 PRINT "sufficient Backups, and test your changes BEFORE 

putting them in use.": PRINT 

330 PRINT TAB(35) "Thank You!": PRINT: PRINT: PRINT CN$: GOSUB 

6000: CLS 

340 CLS: PRINT "This program can be used in two ways:" 

350 PRINT: PRINT TAB(5) "— > (A) Replace fields with constant 

values specified from the " 

360 PRINT TAB(14) "keyboard for ALL records" 

370 PRINT: PRINT TAB(5) "■■-■■■> (B) Replace fields in records 

selected using" 

380 PRINT TABU 4) "a PROFILE Index" 

390 PRINT: PRINT " Before starting either option, you must be 

ready to supply the program with the following information." 

400 PRINT: PRINT TAB(5) "1. The name of your PROFILE (Source) 



o ^ 
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file." 

4)0 PRINT TAB(5) "2. The number of segments in your Source file." 

420 PRINT TAB(5) "3. The new data to 'PLUG INTO' the contents of 

each field" 

430 PRINT TAB(8) "you want to replace." 
^440 PRINT TAB(5) "4. Whether you want the new data RIGHT- or 
".EFT JUSTIFIED in each field." 

450 PRINT: PRINT TAB(8) "NOTE: If replacement data is longer than 

the field length, it will" 

460 PRINT TAB(8) "be LEFT-JUSTIFIED, with the extra characters 

cut off on the right!" 

470 PRINT: PRINT "To continue press <ENTER>...": GOSUB 6000: CLS 

480 PRINT "To Archive from an index, you must also know:" 

490 PRINT: PRINT TAB(5) "5. Which PROFILE Index you want to use - 

PRINT Index (by #) or INQUIRY." 

500 PRINT TAB(5) "6. The logical record length (LRL) of the Index 

file." 

510 PRINT: PRINT "The LRL is listed in the directory (DIR) on your 

data disk." 

520 PRINT "The INQUIRY index ends in 71X1'. THE PRINT Indexes 

end in VIY1', VIY2' etc." 

530 PRINT: PRINT "(You will have a chance to see a DIRectory 

later!)" 

540 PRINT: PRINT "Finally, you must enter BASIC with FILES = No. 

of segments + 1." 

550 PRINT: PRINT: PRINT: PRINT: PRINT DIV$: PRINT "Do you need to 

exit the program now to get soae of this information" 

560 PRINT "or to re-enter BASIC with the proper number of FILES 

(Y/N)?" 

570 PRINT: PRINT DIV$: GOSUB 5030: IF YN$="Y" THEN CLOSE: RUN 

"RM/BAS" 

600 REM 

610 REM * INPUT USER DATA * 

620 REM 

630 CLS: INPUT "Name of Source file";SF*:IF LEN(SF$)>8 THEN PRINT 

"8 CHARACTERS OR LESS, PLEASE": GOTO 630 

640 SF$-SF$+STRING$(8 LEN(SF$),48) 

650 INPUT "How many segments (1-4)";NS: IF NS<1 OR NS>4 GOTO 650 

660 IF NS<=2 THEN GOTO 690 

670 PRINT: PRINT "Did you remember to enter BASIC with ";NS+1;" 

FILES?" 
S80 PRINT "If not, do you want to exit now to do it (Y/N)?": GOSUB 

5030: IF YN$="Y" THEN CLOSE: RUN "RM/BAS" 

690 PRINT; PRINT "Do you want to use an Index?":GOSUB 

5030;IX$-YN$: IF IX$="N" GOTO 780 

700 PRINT: INPUT "Index to use <I> OR <1-5>";I$ 

710 IF «="I" OR I$="i" THEN I$="/IX1" ELSE I$="/IY"+I$ 

720 PRINT: PRINT "Do you want to see a DIRectory of your Index 

files to read LRL's ?" 

730 GOSUB 5030: IF YN$="Y" THEN CLS: SYSTEM "DIR /I": PRINT CN$: 

GOSUB 6000 

740 INPUT "LRL for Index":LRL 

750 CLS: PRINT "*** WARNING ***": PRINT: PRINT "If something halts 

the program during data transfer (eg. a Disk I/O error)," 

760 PRINT "type the word 'CLOSE' and press <ENTER> at the 'Ready' 

prompt to avoid damage" 

770 PRINT "to your files!" 

780 PRINT: PRINT DIV$: PRINT "Insert Sourer data disks and press 

<ENTER> when ready.":COSUB 6000 

800 REM 

8)0 REM * READ /MAP FILE, DISPLAY FIELDS * 

820 REM * AND SELECT FIELDS TO BE REPLACED * 

830 REM 

840 NF 0: J-0: OPEN "R",l,SF$-t"/MAP" 

850 IF LOP(1)=0 THEN GOTO 10090 

860 IF L0F(1)<> NS THEN GOTO 30030 

870 FIELD 1, 1 AS X$,2 AS L$,13 AS Y$,239 AS Z$ 

880 FOR SEG-1 TO LOF(l): GET 1, SF.G: LS(SKG)=CVI(L$): NF(SEG)=0 

890 IF ASC(Z$)=0 THEN GOTO 920 

900 NF NFU: NF(SEG)«NF(SEG)*1: LHASC(Z$): H$(NF)-MJD$(Z$,2,LH) 

910 LD(NF)=ASC(MID$(Z$.LH+2,1)): LSET Z$-MID$(Z$,LH4 3): GOTO 890 

920 CLS: PRINT "SEGMENT * ";SEG 

930 PRINT " #/FIELD HEADING";STRING$(16,32); ,, LENGTH ,, ; " #/FIELD 

HEADING";STRING$(J6,32);"LENGTH" 

940 PRINT DIV$: IF NF(SEG)<18 THEN K-NF(SEG) ELSE K =18 

950 FOR 11 TO K: J-JU: PRINT USING "##";J;:PRINT 
^ "-";H$(J):STRING$(32 LEN(H$(J)),32);:PRTNT USING "###";LD(J): NEXT I 

960 IF NF(SEG)< 18 THEN GOTO 980 ELSE P- 

970 FOR I=K+1 TO NF(SEC): J-J*l: Pit!: PRINT ® (P+2,41), USING 

"##":J::PRINT " ";H$(J);STRING$(32-- LKN(H$(J)).32);:PRINT USING 



"#*#";LD(J);:NEXT I 

980 PRINT • (2 1,0), "How many fields are to be replaced in segment 

#";SEG;:INPUT NC$(SEG): IF NC$(SEGK" THEN PRINT ER$: GOTO 980 

990 IF ASC(NC$(SEG))<48 OR ASC(NC$(SEG))>57 THEN PRINT ER»: GOTO 

980 

1000 NC(SEG)=VAL(NC$(SEG)): IF NC(SEG)<1 THEN GOTO 1160 

1010 FOR 1=1 TO NC(SEG): IF 1=1 THEN PRMT$-"FIRST" ELSE 

PRMT$="NEXT" 

1020 PRINT 9 (22,0),"Enter 'FIELD ^JUSTIFICATION (R/L)' of 

";PRMT$;" field to replace -eg. <3,R>";: INPUT C(SEG,I),JU*(SEG,I) 

1030 IF JU$(SEG,I)="r" THEN JU$(SEG,I)="R" ELSE IF JU$(SEG.I)="1" 

THEN JU$(SEG,I)="L" 

1040 IF JU$(SEG,I)o"R" AND JU$(SEG,I)o"L" THEN PRINT* (23,0), 

"Input JUSTIFICATION (R/L) for field # ";C(SEG,I);" Again ";: INPUT 

JU$(SEG,I): GOTO 1030 

1050 FOR T=l TO 600: NEXT T: PRINT # (22,0), SPACE$(78): NEXT I 

1060 CLS: PRINT "In Segment # *';SEG;" Data In these fields will be 

replaced:" 

1070 PRINT: PRINT "FIELD HEADING";:PRINT TAB(25) "FIELD t 

JUSTIFICATION": PRINT DIV$ 

1080 FOR 1=1 TO NC(SEG): PRINT H$(C(SEG,I));TAB(30);:PRINT USING 

"##";C(SEG,I);: PRINT TAB(41) JU$(SEG,I): NEXT I 

1090 PRINT: PRINT "(Press <CTL><:> for Hardcopy) - Are these 

correct (Y/N)?": GOSUB 5030 

1100 IF YN$="N" THEN J=J-NF(SEG): GOTO 920 

1110 CLS: FOR 1=1 TO NC(SEG) 

1120 PRINT "Enter new data to replace contents of Field # 

";C(SEG,I);" (";H$(C(SEG,I»;")" 

1130 PRINT "?";:LINE INPUT DTR$(C(SEG,I)) 

1140 PRINT "Is this correct?": GOSUB 5030: IF YN$="N" THEN GOTO 

1120 

1150 NEXT I 

1160 NEXT SEG 

1170 CLOSE 

1200 REM 

1210 REM * OPEN DATA FILES FOR I/O * 

1220 REM 

1230 NF-0: FOR SEG-1 TO NS 

1240 OPEN "R", SEG, SF$+EX$(SEG), LS(SEG): DU=0 

1250 FOR 1=1 TO NF(SEG) 

1260 NF=NF+1: FIELD SEG. (DU) AS DUMS, LD(NF) AS DT$(NF): 

DU-DU*LD(NF) 

1270 NEXT I 

1280 NEXT SEG 

1290 IF IX$="N" THEN GOTO 1430 ELSE IB=NS+1 

1300 OPEN "R", IB, SF$+I$,LRL 

1310 FIELD IB, LRL-3 AS Xl$, 2 AS DR$, 1 AS Yl$ 

1400 REM 

1410 REM 

1420 REM 

1430 CLS: N=0 

1440 IF IX$="N 

1450 FOR LR=4 

1460 PRINT985, 

1470 GET IB. LR 

1480 DR-CVI(DR$) 

1490 GOSUB 1730 

1500" NEXT LR 

1510 CLOSE: PRINT 



* SETUP TO READ FILES USING INDEX * 



1 THEN GOSUB 1630: GOTO 1510 

TO LOF(IB) 

"Processing record # ";LR-3 



"DONE!": PRINT 



1520 PRINT CN$: GOSUB 6000; RUN "RM/BAS" 

1600 REM 

1610 REM 

1620 REM 

1630 FOR DR1 TO L0F(1) 

1640 PRINT#85, "Processing record # 

1650 GOSUB ]730 

1660 NEXT DR 

1670 RETURN 

1700 REM 

1710 REM 

1720 REM 

1730 FOR SEG 

1740 GET SEG, 



SETUP TO READ FILES WITHOUT INDEX * 



';DR 



* READ FILES, REPLACE DATA, WRITE FILES * 



1 TO NS 

DR 

1750 FOR 1=1 TO NC(SEG) 

1760 IF JU$(SEG,I)="L" THEN LSET DT$(C(SEG,I))=DTR$(C(SEG,I)) 
1770 IF JU$(SEG,I)-"R" THEN RSET DT$(C(SEG,I))=DTR$(C(SEG,I)) 
1780 NEXT I 
1790 PUT SEG, DR 
1800 NEXT SEG 
1810 RETURN 



» INPUT ROUTINES • 



5000 REM 

9010 REN 

5020 REN 

5030 YN$=INKEY$: IP YN$="" GOTO 5030 

5040 IF YN$="y" THEN YN$-"Y" 

5050 IF YN$»"n" THEN YN$="N" 

5060 IF YN$<>"Y" AND YN$<>"N" THEN GOTO 5030 

5070 RETURN 

6000 ENS-INKEYS: IF EN$»"" GOTO 6000 

6010 IF EN$<> CHR$<13) THEN GOTO 6000 ELSE RETURN 

10000 REN 

10010 REN * ERROR ROUTINES * 

10020 REM 

10030 CLOSE: CLS: PRINT 

10040 PRINT "* BRROR •": PRINT 

10050 PRINT "The * of segnents you Input does not natch the # of 

segments In" 

10060 PRINT "file "+SF$+"/MAP. Please check your data and start 

over." 

10070 PRINT: PRINT "Press 'Y' to re-enter file data, 'N' to 

qult":GOSUB 5030 

10080 IF YN$-"Y" THEN GOTO 630 ELSE PRINT "Files closed.": PRINT: 

PRINT CN$: GOSUB 6000: RUN "RM/BAS" 

10090 CLOSE: KILL SF$+"/MAP": CLS: PRINT 

10100 PRINT "* ERROR *": PRINT: PRINT "File ";SF$;"/NAP";" Not 

Found" 

10110 GOTO 10070 

65000 REM * PROFILE Is a trademark of Tandy Corporation * 



TRAMSFER/BAS 

* TRANSFER/BAS - Placed In the public domain by 

* 01/21/86. Transfers data fron ft to selected 

* PROFILE(tn) 4 Source and Destination files. 



10 REM 
DAS on 
20 REM 

fields in 

30 REM i 

* 

40 REM 

50 CLS: PRINT* (6,20), CHR$(16);" TRANSFER FOR PROF 

I L E 4 " 

60 PRINT: PRINT TAB(29) " By Don Singer 

70 PRINT TAB(31), "3726 Skyline Drive" 

80 PRINT TAB(29), "Scottsbluff, Ne 69361" 

90 FOR 1=1 TO 3000:NEXT 

100 REM 

110 REM * INITIALIZE AND INSTRUCTIONS * 

120 REM 

130 CLS: CLEAR 5000: DEFINT A-Z: DIV$=STRING$(79,"*") 

140 EXS(1)="/KEY": EX$(2)="/DAT": EX*(3)*"/DA2": BX$(4K/DA3" 

150 ERS-"*** ENTRY ERROR - TRY AGAIN ***": CN$="To continue, 

press <ENTER>..." 

160 LH$=" */FIELD HEADING"+STRING$(16,32)+"LENGTH": RHf>" "+LH* 

170 DIM JU$(99).DT$<99,2),H$(99,2),LD(99 I 2).SF(99),DF(9S) 

180 PRINT* (2,10), "Do you want instructions (Y/N)?": GOSUB 5030: 

IF YN$="N" GOTO 600 

190 PRINT: PRINT TAB(33) "*««*«»•»****•»»" 

200 PRINT TAB(33) "»*» WARNING »•»" 

210 PRINT TAB(33) "»**»*****•»***»» 

220 PRINT: PRINT: PRINT "This progran nanipulates your valuable 

PROFILE data files, and has the power" 

230 PRINT "to RUIN then if you aake a alstake! So for your own 

protection, PLEASE have" 

240 PRATT "sufficient Backups, and test your changes BEFORE 

putting then In use.": PRINT 

250 PRINT TAB(35) "Thank You!": PRINT: PRINT: PRINT CN$: GOSUB 

6000: CLS 

260 CLS: PRINT "This progran transfers data in specified fields 

between two PROFILE data" 

270 PRINT "files. The records to be used are chosen fron the 

files in two ways:" 

280 PRINT: PRINT TAB(5) " > (A) Data is noved fron EACH record 

in the Source File to the" 

290 PRINT TAB(14) "sane -nunbered record in the Destination File." 

300 PRINT: PRINT TAB(14) "NOTE: This option should be used only If 

SOURCE and DESTINATION" 

310 PRINT TAB(14) "files have the SAME nunber and order of 

records (or order la not" 

320 PRINT TAB(14) "important - eg. a new Destination file with no 

data)." 

330 PRINT: PRINT: PRINT TAB(5) " > (B) SOURCE and DESTINATION 

records are selected using a PROFILE" 



PRINT DIV$: GOSUB 5030: IF YNVY" THDI CLOSE: RDM 



* UIPUT USER DATA * 



340 PRINT TAB(14) "Index fron each file." 

350 PRINT: PRINT TAB(14) "NOTE: Both Source and Destination file 

Indexes should be" 

360 PRINT TAB(14) "'freshly-built' using IDENTICAL Sort and 

Selection criteria" 

370 PRINT TAB(14) "to prevent scrambling of the transferred data* ) 

In particular," 

380 PRINT TAB(14) "they MUST have the SAME NUMBER of record* 

sorted in the SAME order!" 

390 PRINT: PRINT: PRINT: PRINT CNS: GOSUB 6000: CLS 

400 PRINT "Before starting either option, you must be ready to 

supply the progran with the following information:" 

410 PRDiT: PRINT TAB(5) "1. The name of your SOURCE file." 

420 PRINT TAB(5) "2. The nunber of segments in your SOURCE file." 

430 PRINT TAB(5) "3. The nane of your DESTINATION f il*." 

440 PRINT TAB(5) "4. The nunber of segments In your DESTINATION 

file." 

450 PRINT: PRINT CNS: GOSUB 6000: CLS 

460 PRINT "To Transfer using Indexes, you nust also know:" 

470 PRINT: PRINT TAB(5) "5. Milch PROFILE Indexes you want to OK 

- PRINT Indexes (by #) or INQUIRY." 

480 PRINT TAB(5) "6. The logical record length (LRL) of the Index 

file." 

490 PRINT: PRINT "The LRL Is listed In the directory (DIR) on your 

data disk." 

500 PRINT "The INQUIRY Index ends in '/TXl'. THE HUNT Indexes 

end In VIY1', VIY2' etc." 

510 PRINT: PRINT "(You will have a chance to see a DIRectory 

later!)" 

520 PRINT: PRINT "Finally, enter BASIC with:" 

530 PRINT: PRINT TAB(5) "FILES » (No. of Source segments) + (No. 

of DESTINATION segnents) + 2." 

540 PRINT: PRINT: PRINT: PRINT DIV$: PRINT "Do you need to EXIT 

the progran now to get sone of this information" 

550 PRINT "or to re-enter BASIC with the proper nunber of FILES 

(Y/N)?" 

5S0 PRINT: 

"RM/BAS" 

570 REM 

580 REM 

590 REM ) 

600 CLS: INPUT "Nane of Source flle";P$(l):IF LEN(F$(1))>« THEM 

PRINT "8 CHARACTERS OR LESS, PLEASE": GOTO 600 

610 F$(1)-F$(1)+STRMG$(8-LEN(F$(1)),48) 

620 INPUT "How nany segnents (1-4)";NS(1): IF NS(1)<1 OR NS(1)>4 

GOTO 620 

630 PRINT: INPUT "Nane of Destination flle";F$(2):IF LEN(F$(2))>8 

THEN PRINT "8 CHARACTERS OR LESS, PLEASE": GOTO 630 

640 F$(2)=F$(2)+STRIN6S(8-LEN(F$(2)),48) 

650 INPUT "How nany segnents (1-4)";NS(2): IF NS(2)<1 OR NS(2)>4 

GOTO 650 

660 PRINT: PRINT "Do you want to use Indexes?":GOSUB 

S030:IX$-YN$ 

670 IF IXS="N" OR IXS-V THEN FI=NS(1)+NS(2): GOTO 760 ELSE 

FI*NS(l)+NS(2)+2 

680 PRINT: INPUT "SOURCE Index to use <I> OR <1-5>";I$(1) 

690 IF I$(l)-T' OR I$(l)-"1" THEN I$(l)-"/IXl" ELSE I$(l)-"/rr*I$(l) 

700 PRINT: PRfflT "Do you want to see a DIRectory of your Index 

files to read LRL's ?" 

710 GOSUB 5030: IF YN$-"Y" THEN CLS: SYSTEM "DIR /T: PRINT 

CN$:G0SUB 6000 

720 INPUT "LRL for SOURCE Index";LRL(l) 

730 PRINT: INPUT "DESTINATION Index to use <I> OR <1-5>";I$(2) 

740 IF IS(2)="I" OR I$(2)="i" THEN I$(2)-"/IXl" ELSE I$(2)""/IY"+I$(2) 

750 INPUT "LRL for DESTINATION Index":LRL(2) 

760 PRINT: PRINT DIV$: PRINT "Did you enter BASIC with ";FI;" 

Files?" 

770 PRINT "If not, do you want to EXIT now to do it (Y/N)?": PRINT 

780 PRINT DIVS: GOSUB 5030: IF YN$-"Y* THEN CLOSE: RUN "RM/BAS" 

790 CLS: PRINT "*** WARNING ***": PRINT: PRINT "If something halts 

the progran during data transfer (eg. a Disk I/O error)," 

800 PRINT "type the word 'CLOSE' and press <ENTER> at the 'Ready* 

pronpt to avoid dosage" 

810 PRINT "to your files!" 

820 PRINT: PRINT DIV$: PRINT "*** Insert Source and Destination 

data disks and press <ENTER> when ready. ***": GOSUB 6000 ' 

900 REM 

910 REM * READ SOURCE ft DESTINATION FILES • 

920 REM 

930 NX-0: POR 1=1 TO 2 
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940 IF 1=1 THEN SD$="SOURCE" ELSE SD$="DESTINATION" 

950 GOSUB 2030 

960 NEXT t 

1000 REM 

1010 REM * OPEN DATA FILES FOR I/O * 

1020 REM 

1030 CLS: PRINT: PRINT TAB(30) "...OPENING FILES...": NB=0: FOR 1=1 

TO 2 

1040 NF=0: FOR SEG=1 TO NS(I): NB-NB+1 

1050 OPEN "R", NB, F$(I)+EX$(SEG), LS(SEG.I): DU=0 

1060 FOR J=l TO N(SEG,I) 

1070 NF=NF+1: FIELD NB, (DU) AS DUM$, LD(NF,I) AS DT$(NF,I): 

DU^DU+LD(NF,I) 

1080 NEXT J: NEXT SEG: NEXT I 

1090 IF IX$="N" THEN GOTO 1230 

1100 FOR 1=1 TO 2: NB=NB+1 

1110 OPEN "R", NB. F$(I)+I$(I),LRL(I) 

1120 FIELD NB, LRL(I)-3 AS Xl$, 2 AS DR$(I), 1 AS Yl$ 

1130 IB(I)=NB: NEXT I 

1200 REM 

1210 REM * SETUP TO READ FILES USING INDEX * 

1220 REM 

1230 CLS: N=0 

1240 IF IX$="N" THEN GOSUB 1430: GOTO 1310 

1250 FOR LR=4 TO LOF(IB(l)) 

1260 PRINT®85, "Processing record # ":LR-3 

1270 GET IB(1), LR: GET IB(2), LR 

1280 DR1=CVI(DR$(1)): DR2=CVI(DR$(2)) 

1290 GOSUB 1530 

1300 NEXT LR 

1310 CLOSE: PRINT "DONE! Files Closed": PRINT 

1320 PRINT CN$: GOSUB 6000: RUN "RM/BAS" 

1400 REM 

1410 REM « SETUP TO READ FILES WITHOUT INDEX * 

1420 REM 

1430 FOR DR1 = 1 TO LOF(l): DR2'DR1 

1440 PRINT9S5, "Processing record # ";DR1 

1450 GOSUB 1530 

1460 NEXT DR1 

1470 RETURN 

1500 REM 

1510 REM * READ FILES, TRANSFER DATA, WRITE FILES * 

1520 REM 

1530 NB=0: FOR 1=1 TO 2 

1540 IF 1=1 THEN DR-DR1 ELSE DR=DR2 

1550 FOR SEG=1 TO NS(I): NB=NB+1 

1560 GET NB, OR 

1570 NEXT SEG: NEXT I 

1580 FOR M=l TO NX 

1590 IF JU$(M)-"L" THEN LSET DT$(DF(M),2)=DT$(SF(M),1) ELSE RSET 

DT*(DF(M),2)=DT4(SF<M),1) 

1600 NEXT M 

1610 NB=0: FOR 1=1 TO 2 

1620 IF 1=1 THEN DR=DR1 ELSE DR=DR2 

1630 FOR SEG=1 TO NS(I): NB=NB+1 

1640 PUT NB. DR 

1650 NEXT SEG: NEXT I 

1660 RETURN 

2000 REM 

2010 REM * READ /MAP FILES, DISPLAY FIELDS * 

2020 REM 

2030 NF(I)-0: J---0: OPEN "R",l,F$(I)t"/MAP" 

2040 IF LOF(l)-0 THEN GOTO 10090 

2050 IF LOF(l)<> NS(I) THEN GOTO 10030 

2060 FIELD 1, 1 AS X$,2 AS L$,13 AS Y$,239 AS Z$ 

2070 FOR SEG-! TO LOF(l): GET 1, SEG: LS(SEG,I)-CVI(I.$): N(SEG,I)-0 

2080 IF ASC(Z$)=0 THEN GOTO 2120 

2090 NF(I)-NF(I)+1: N(SEG,I)=N(SEG,I)+1: I.H-ASC(Z$): 

H$(NF(I),I)-MID$(Z$,2,LH) 

2100 I.D(NF(I),I) ASC(M1D$(Z$,LH+2.1)): LSET Z$=MID$(Z$.LH+3): GOTO 

2080 

2110 RPT=0 

2120 CLS: PRINT "SEGMENT # ":SEG, "FILE ";F$(I) 

2130 PRINT LI1$;RH$ 

2140 PRINT DIV$: IF N(SEG,I)<18 THEN K=N(SEG,I) ELSE K-18 

2150 FOR M=l TO K: J=JH: PRINT USING "##";J;:PRINT 

"-";H$(J,I);STRING$(32-LEN(H$(J,I)),32);:PKINT USING "###";LD(J,I): NEXT 

M 

2160 IF N(SEG,I)<-18 THEN GOTO 2180 ELSE P-0 

2170 FOR M=K+1 TO N(SEG,I): J=J+1: P-P+l: PRINT 9 (P+2,41), USING 



"##";J;:PRINT "-";H$(J,I);STRING$(32-LEN(H$(J,I)),32);:PRINT USING 

"*##";LD(J,I);:NEXT M 

2180 IF 1=1 THEN GOSUB 3030 

2190 IF 1=2 THEN GOSUB 4030 

2200 IF RPT=1 THEN GOTO 2110 

2210 NEXT SEG 

2220 IF RPT=2 THEN GOTO 930 

2230 CLOSE 

2240 RETURN 

3000 REM 

3010 REM * PICK SOURCE FIELDS * 

3020 REM 

3030 PRINT « (21,0),"How many ";SD$;" fields in segment #";SEG;" (0 

to skip)";:INPUT NCJ(SEG): IF NC$(SEG)="" THEN PRINT ER$: GOTO 3030 

3040 IF ASC(NC$(SEG))<48 OR ASC(NC$(SEG))>57 THEN PRINT ER$: GOTO 

3030 

3050 NC(SEG)'VAL(NC$(SKG)): K-NX: IF NC(SEG)<1 THEN GOTO 3140 

3060 FOR M=l TO NC(SEG): NX=NX+1: IF M=l THEN PRMT$="First" ELSE 

PRMT$="Next" 

3070 PRINT § (22,0),"Enter Field # of ";PRMT$;" ";SD$;" field";: 

INPUT SF(NX) 

3080 FOR T=l TO 600: NEXT T: PRINT 9 (22,0), SPACE$(78): NEXT M 

3090 CLS: PRINT "In Segment # ";SEG;" These are the ";SD$;" fields:" 

3100 PRINT: PRINT LEFT$(LH$,32): PRINT DIV$ 

3110 FOR M=K+1 TO NX: PRINT USING "##";SF(M);:PRINT "-";H$(SF(M),I): 

NEXT M 

3120 PRINT: PRINT "(Press <CTL><:> for Hardcopy) - Are these 

correct (Y/N)?": GOSUB 5030 

3130 IF YN$="N" THEN J=J-N(SEG,I): NX-NX-NC(SEG): RPT=1 

3140 RETURN 

4000 REM 

4010 REM * PICK DESTINATION FIELDS * 

4020 REM 

4030 FOR M-l TO NX: IF DF(M)>0 THEN GOTO 4080 

4040 PRINT f (21,0), "For SOURCE field #";SF(M);"- ";H$(SF(M),1);" (If 

Destination field not" 

4050 PRINT § (22,0), "in this segment, enter <0> to skip)";": Enter 

DESTINATION field # ";:INPUT DF(M) 

4060 FOR T=l TO 600: NEXT T: PRINT » (21,0), SPACE$(79) 

4070 PRINT SPACE$(79) 

4080 NEXT M 

4090 IF SEG<LOF(l) THEN GOTO 4260 

4100 FOR M-l TO NX: JU$(MH'L" 

4110 IF LD(SP(M),1)<LD(DF(M),2) THEN GOSUB 4300 

4120 IF LD(SF(M),1)>LD(DF«H),2) THEN GOSUB 4400 

4130 NEXT M 

4140 IF EX=1 THEN GOSUB 4490 •-,-■ \'.\ 

4150 IF NX<1* THEN K«NX ELSE K= 18 

4160 M-fl 

4170 CLS: PRINT TAB(20) "SOURCE"; TAB(57) "DESTINATIOH" 

4180 PRINT l,EFT*(LH$,32);SPACE$(&);LEFT*(RH$,28);"JUSlWICATKar: 

PRINT DIVS 

4190 FOR J=l TO K: M-M+1 V ^V^:;.^'*!* 

4200 PRINT USING "##";SF(M);: PRIST "( ■" ' < 

"-''iit$<Sf (M),1);STRING$(38 -LEN(H$(SF(M),1)),32);: PRINT BSBIG 

"»#"01F(Mi;: PRINT "-" 

B»(DF<ie.2)^TRINe$(32-LEN(H$(BFW,2H.32);JU$(M) 

t'Ziis w n<m tmumxT j -.-" ■•v-.v.s^' 

4220 PRINT CN$: GOSUB 6000 " 

4230 IF «<NX THEN GOTO 4170 ' 

4340 PRINT 9 (21.0), "(Press <CTL><:> for Hardcopy) - Are these .'.'» ', ■■" 

correct (Y/N)?": GOSUB 5030 , 

4250 IF YN$="N" THEN CLOSE: CLS: PRINT "PLEASE RE-ENTER FI8LD 

DATA": RPT-2 

4260 RETURN 

4300 CLS: PRINT "Source field ";SF(M);" ";H$(SF(M),1);" 1b" 

4310 PRINT "shorter than Destination field ";DP(M);"-";H$(DF(M),2) 

4320 PRINT: INPUT "Enter JUSTIFICATION for data (R/L) ";JU$(M) 

4330 IF JU$(M)="r" THEN JU$(M)="R" ELSE IF JU$(M)="1" THEN 

JU$(MF'L" 

4340 IF JU$(M)o"R" AND JU$(M)o"L" THEN PRINT: INPUT "Input 

JUSTIFICATION (R/L) for this field again ";JU$(M) 

4350 RETURN 

4400 CLS: PRINT "* WARNING *": PRINT: PRINT "Source field 

";SF(M);"-";H$(SF(M),1);" is" 

4410 PRINT "LONGER than Destination field ";DF(M);"-";H$(DF(M),2) 

4420 PRINT: PRINT "Data will be LEFT- Justified, and the last 

";LD(SF(M),l)-LD(DF(M),2);"characters" 

4430 PRINT "will be LOST." 

4440 PRINT: PRINT "To prevent this, you must lengthen the 
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Destination Field with" 

4450 PRINT "PROFILE'S 'Define Files' option. " 

4460 PRINT: PRINT "If you want to do this, Bake a note of this 

destination field Number and" 

4470 PRINT "EXIT at the next opportunity!" 

44S0 PRINT: PRINT CN$: GOSUB 6000: EX-1: RETURN 

4490 CLS: PRINT "Do you want to EXIT to lengthen Destination 

fields (Y/N)?" 

4S00 GOSUB 5030: IP YN$="Y" THEN CLOSE: PRINT "Files closed.": 

RUN "RN/BAS" 

4510 RETURN 

S000 REM 

5010 REN * INPUT ROUTINES * 

5020 REM 

5030 YN$=INKEY*: IF YN$="" GOTO 5030 

5040 IP YN$="y" THEN YN$="Y" 

5050 IP YN$="n" THEN YN$="N" 

5060 IF YN$<>"Y" AND YN$o"N" THEN GOTO 5030 

5070 RETURN 

6000 EN$=-INKEY$: IF EN*="" GOTO 6000 

6010 IF EN$<> CHR$(13) THEN GOTO 6000 ELSE RETURN 

10000 REM 

10010 REM * ERROR ROUTINES * 

10020 REM 

10030 CLOSE: CLS: PRINT 

10040 PRINT "* ERROR *": PRINT 

10050 PRINT "The # of segaents you input does not Batch the # of 

segments in" 

10060 PRINT "file "+F$(I)+"/MAP. Please check your data and start 

over." 

10070 PRINT: PRINT "Press T to re enter file data. 'N' to 

quit":GOSUB 5030 

10080 CLOSE: IF YN$="Y" THEN GOTO 600 ELSE PRINT: PRINT "Files 

Closed.": PRINT: PRINT CN$: GOSUB 6000: RUN "RM/BAS" 

10000 CLOSE: KILL P$(I)+"/MAP": CLS: PRINT 

10100 PRINT "* ERROR *": PRINT: PRINT "File ";P$(I);"/MAP";" Not 

Found" 

10110 GOTO 10070 

65000 REM * PROFILE is a trademark of Tandy Corporation * 

RENAME/BAS 

(Editor's note: This is an adaptation of a Model II program 
that originally appeared in the April, 1984 issue of the TRS-80 
Microcomputer News. Also, in the interest of conservation of 
newsletter space, blank remark lines (which contained only a line 
number and an apostrophe) have been DELETED at the following 
line numbers; 190, 9000, 10500, 10600, 11700, 12500. 13000, 13500, 
13600, 14300, 14400, 15800, 15900, 17300, 18400, 18500. 19700, 
19800, 20800, 20900, 21900. 22000, 22500, 22600, 23400, 23500, 
24100. 24200.] 

100 'RENAME/BAS 

110 'TRS-80 MICROCOMPUTER NEWS, APRIL 1984 

120 'BY CALVIN ROBERTS 

130 'PO BOX 22413 

140 'SAN DIEGO, CA 92122 

150 'ENTERED AND CONVERTED TO MODEL IV PROPILE(tm) 4+ 

160 'BY DWAIN SUTTON 

170 'BUGGYPOLE RANCH 

180 'ASHBY, NE 69333 

200 ' 

8200 CLEAR 4000 

8300 ON ERROR GOTO 23000 

8400 DIM D$(100) 

8500 DIM E$(100) 

8600 DIM C$(100) 

8700 DIM F$(100) 

8800 DIM G$(100) 

8900 R$«CHR$(16):N$=CHR$(17) 

9100 ' 

9200 'MENU 

9300 ' 

9400 CLS:A--0:B= 0:PRINT TAB(25);R$" PROFILE FILE MANIPULATION MENU 

"N$ 

9410 PRINT t(l,0).STRING$(80,"_") 

9500 A$«" ":B$"A$:F0R J=0 TO 50:C$(J)=A$:D$(J)=A$:E$(J)=A$ 

9600 F$(J)= A$:G$(J)= A$:NEXT:J=0 

9700 PRINT:PRINT 

9800 PRINT TAB(30);"1 - Single Pile Rename":PRJNT 

9900 PRINT TAB(30);"2 - TOTAL FILE RENAME":PRINT 



10000 PRINT TAB(30);"3 - Return to Menu":PRINT 

10100 PRINT TAB(30);"4 - Exit to TRSDOS":PRINT 

10110 PRINT t(19,0),STRING$(80,"_") 

10200 PRINT TAB(32);R$" Enter Selection "N$ 

10300 INPUT Y:0N Y GOTO 11000,12100,12900,13400 

10400 GOTO 9400 

10700 ' 

10800 'Single File Rename 

10900 ' 

11000 GOSUB 14000 

11100 PRINT "Extent :"; 

11200 LINE INPUT C$:PRINT 

11300 GOSUB 14800 

1 1400 D$(0)=A$+"/"tC$:E$(0)=B$+"/"+C$ 

11500 L=0:GOSUB- 20200 

11600 PRINT:GOSUB 22400:GOTO 9400 

11800 ' 

11900 ' All file Rename 

12000 ' 

12100 GOSUB 14000:GOSUB 14800 

12200 GOSUB 17700:GOSUB 18900 

12300 GOSUB 20200:GOSUB 21400 

12400 GOSUB 22400:GOTO 9400 

12600 ' 

12700 ' Exit to PROFILE IV+ Menu 

12800 ' 

12900 RUN"RM/BAS" 

13100 ' 

13200 ' Exit to TRSDOS 

13300 ' 

13400 CLS:SYSTEM 

13700 ' 

13800 ' Subroutine to Input Old PROFILE File Name 

13900 ' 

14000 CLS-.PRINT "Old PROFILE Pile Name :"; 

14100 LINE INPUT A$ 

14200 PRINT:Z$=A$:GOSUB 23900:A$=Z$:RETURN 

14500 ' 

14600 ' Subroutine to Input New PROPILE File Name 

14700 ' 

14800 PRINT "New PROFILE File Name :": 

14900 LINE INPUT B$ 

15000 PRINT:Z$=B$:GOSUB 23900:B$-Z$ 

15100 ' 

15200 ' Check to see if Old and New File Names are the Same 

15300 ' 

15400 IF A$<>B$ THEN GOTO 15700 

15500. PRINT "Files Cannot Have the same File Names It" 

15600 FOR V-l TO 1000:NEXT:GOTO 9400 

15700 PRINT:RETURN 

16000 ' 

16100 ' Data Statements 

16200 ' 

16300 DATA MAP,KEY,DAT,DA2,DA3:' 

16400 DATA PM0,PM1,PM2,PM3,PM4,PM5,PM6,PM7.PM8,PM9 

16500 DATA PR0,PR1,PR2,PR3,PR4,PR5,PR6,PR7,PR8,PR9 

16600 DATA LB0,LB1,LB2,LB3,LB4,LB5:',LB6,LB7,LB8,LB9:' Label formats 

16700 DATA SL0,SI.1,SL2,SL3,SL4,SL5:',SL6.SI,7,SL8,SL9:' SuperScripsit 

format 

16800 DATA VC0,VCl,vC2,VC3,VC4,VC5:',VC6.VC7,VC8,VC9 

format 

16900 DATA MTH:' 

17000 DATA IXUYUY2,IY3,IY4,IY5 

17100 DATA 999 

17400 ' 

17500 ' Subroutine to Add Extents to Old File Names 

17600 ' 

17700 READ C$(J) 

17800 IF C$(J)= "999" THEN 18300 

17900 D$(J)-A$<"/"+C$(J) 

18000 J-JH 

18100 GOTO 17700 

18200 L^J-1 

18300 RKSTORK:RLCTURN 

18600 ' 

18700 ' Subroutine to Add Extents to New File Names | 

18800 ' 

18900 ,J"0 

19000 READ C$(J) 

19100 IF C$(J) "999" THEN 19500 



P. 



File Segments 
Screen formats 
Report formats 



VislCalc 



Math file 



19200 E 
19300 J 
19400 G 
19500 L 
19600 R 
19900 ' 
20000 ' 
20100 ' 
20200 
20300 
20400 
20500 
20600 
20700 I 
21000 ' 
21100 ' 
and fill 
21200 ' 
21300 ' 
21400 ( 
21500 I 
21600 I 
21700 I 
21800 I 
22100 ' 
22200 ' 
22300 ' 
22400 I 
22700 
22800 
22900 
23000 
23100 ! 
23200 ! 
23300 
23600 
23700 
23800 
23900 
. 24000 
' 24300 
24400 
24500 
24600 
";KRI.:F 
24700 
24800 
24900 
65000 



5 '"RM 
50 R* 
100 Ci 
110 
PRINT 

IisTS 

120 P 
130 P 
140 P 
files) 
150 P 
190 P 
195 r 
200 F 
300 t 
310 I 
320 I 
330 1 
340 1 
500 1 
510 ( 
65001 



doul 
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19200 E$(J)=B$+"/"+C$(J) 

19300 J=J+1 

19400 GOTO 19000 

19500 W-l 

19600 RESTOREiRETURN 

19900 ' 

20000 ' Subroutine to RENAME Files 

20100 ' 

20200 FOR K=0 TO L 

20300 NAME D$(K) AS E$(K):IF C=l THEN 20800 

20400 PRINT D$(K);" > ";E$(K), n Completed" 

20500 A=A+1:FS(A)=D$(K) 

20600 C-0 

20700 NEXT:RETURN 

21000 ' 

21100 ' Subroutine to Inform User of Number and Files RENAMED 

and files 

21200 ' NOT FOUND 

21300 ' 

21400 CLS:PRINT "FILES RENAMED: "A," "."FILES NOT FOUND: B 

21500 PRINT 

21600 FOR L-l TO J STEP 2 

21700 K=L+1:PRINT F*(L),F$(K)," ",G$(L),G$(K) 

21800 NEXT:RETURN 

22100 ' 

22200 ' Pause Subroutine 

22300 ' 

22400 PRINT "Hit "R*" <ENTER> "N$" to Continue :";:INPUT V:RETURN 

22700 ' 

22800 ' Error Subroutine for FILE NOT FOUND 

22900 ' 

23000 IF ERR <>53 THEN 24600 

23100 PRINT "File ";D$(K) ; " NOT on Disk" 

23200 B=B+1:G$(B)~D$(K):C-1 

23300 RESUME NEXT 

23600 ' t 

23700 ' Subroutine to Pad PROFILE File Name to Eight Characters 

23800 ' 

23900 X"LEN(Z$):X1«8-X:X1$=STRING$(X1."0") . 
k 24000 X$=Z$+X1*:Z$=X$:X=0:X1=0:RETURN 
24300 ' 

24400 ' Error Subroutine for 
24500 ' ALL Other Errors 

24600 PRINT "ERROR Number ";ERR;" Occurred at Line Number 
";ERL:PRINT 

24700 PRINT "Do you wish to resume ":INPUT Y$ 
24800 IF Y$<>"N" THEN 23300 
24900 END 
65000 REM * PROFILE is a trademark of Tandy Corporation *■ 

RM/BAS 
5 '"RM/BAS" BY Dwain Sutton 
50 R$*CHR$(16):N$=CHR$(17) 

100 CLS:PRINT «20," PROFILE (tm) IV UTILITIES 
110 
PRINT" . „ — 



115 PRINT~9(4,30),R$" BASIC PROGRAMS "N$ 

120 PRINT §(6,20),"1 - Archive Records or Delete Empty Records" 

130 PRINT «(7,20),"2 v Replace Field Data (with literals)" 

140 PRINT &(8,20),"3 - Transfer Records ('Lookup' between two 

files) 

150 PRINT #<9,20)."4 Rename Files" 

190 PRINT »(14.20),"X - Exit to DOS" 

195 PRINT e(21,0).STRING$(80,'V) 

200 PRINT #(22,28),R$" < Enter Selection > "N$ 

300 K$INKF.Y$ :IF K$-"" THEN GOTO 300 

310 IF K$="l" THEN RUN"SUBFIL/BAS" 

320 IF K$- "2" THEN RUN"REPI,/BAS" 

330 IF K$-"3" THEN RUN"XFER/BAS" 

THEN RUN"RENAME/BAS" 

OR K$ "x" THEN CLS: SYSTEM 



fir 



340 IF K$ "4" 
500 IF K$"X" 
510 GOTO 300 
65000 REM 
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OPTIMIZE YOUR 80-TRACK DOUBLE SIDED DOUBLE DENSITY 

TRSDOS 6 SYSTEM DISKS 

by S. K. Pranfanik 

Sarpsborgvej 56, 7600 Struer, Denmark ~ 

OPTTDOS6/JCL puts an optimized copy of TRSDOS 6 to a 

double sided 80 track disk. This puts the directory on track 40, 



with the DOS and some other often used flleVaround It. However*, 
LDOS 5.x must be used (use a backup copy), which is patched a« 
required to put files on the required tracks. The JCL file cantfea 
its own documentation. A warning - check the size of the files In 
the particular version of TRSDOS against the documentation, and If 
necessary, make some adjustments. 

.OPTTDOS6/JCL for use with LDOS 5.4 

by SKP - August 18, 1985. '•■•" ". 

to optimize LDOS 6.1.2 system diskette ' 

for 80 track double sided, double density diskettes 

PATCH SYS8/SYS.SYSTEM:0 (DO0iFE=2E 23) * 

to start file allocation at track 35 

backup /Jcl:2 :1 

on tracks 35.00-35.35 (reserve 6 grans) A 

PATCH SYS8/SYS.SYSTEM:0 (DO0,FE=2E 24) 

to start file allocation at track 36 ■''.■' ■■ ■; 

copy backup/cmd.utllity:2 :1 

on track 36.00-36.29 (5 grans) 
copy format/cmd.utiHty:2 :1 

on track 36.30-37.11 (3 grans) 
copy help/cmd.utility:2 :1 

on track 37.12-37.23 (2 grans) 
copy basic/ovl.basic:2 :1 

on track 37.24-37.35 (2 grans) 

backup SYS1/SYS:2 :1 (s) . 

if SYS1 is requested, we also get SYS10, 11, 12 * 13 

sys 1 on track 38.00-38.05 (1 gran) 

sys 10 on track 38.06-38.11 (1 gran) 

sys 11 on track 38.12-38.17 (1 gran) 

sys 12 on track 38.18-38.23 (1 gran) 

sys 13 on track 38.24-38.29 (1 gran) 
backup SYS2/SYS:2 :1 (s) 

on track 38.30-38.35 (1 gran) 

backup SYS0/SYS:2 :1 (s) 

on track 39.00-39.23 (4 grans) 
backup SYS3/SYS:2 :1 (s) 

on track 39.24-39.29 (1 gran) 
backup SYS4/SYS:2 :1 (s) 

on track 39.30-39.35 (1 gran) 

backup SYS6/SYS:2 :1 (s) 

on track 41.00-42.17 (9 grans) 
backup SYS7/SYS:2 :1 (s) 

on track 42.18-43.11 (5 grans) 
backup SYS8/SYS:2 :1 (s) 

on track 43.12-44.17 (7 grans) 

copy dos/hip:2 :1 

copy basic/cmd.basic:2 :1 

PATCH SYS8/SYS.SYSTEM:0 (D00,FE=2E 00) 

to restore file allocation from track 

copy boot/sys.lsidos:2 :1 

on track 00.00-00.17 (3 grans) 
backup SYS5/SYS:2 :1 (s) 

on track 00.18-00.23 (1 gran) 
backup SYS9/SYS:2 :1 (s) 

on track 00.24-00.29 (1 gran) 

the rest 
copy patch/cmd.utility:2 :1 
copy conv/cmd.utility:2 :1 
copy forms/flt.filter:2 :1 
copy ksm/flt.filter:2 :1 
copy log/cmd.utility:2 :1 
copy repair/cmd.utility:2 :1 
. click/fit 
. com/dvr 
. comm/cmd 
. floppy/dct 
. tapelOO/cmd 
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GUIDED TOUR THROUGH THE MODEL III TRSDOS DIRECTORY 

, [Reprinted from Data Important to Members Everywhere 
(DIME), t^e newsletter of the Northern Illinois Computer Owners 
League (NICOL).) 

This article will describe and explain the important features 
of the Model III TRSDOS directory. You'll see that it is quite 
similar in most respects to the Model I directory except for the 
w,ay hi which the DOS SYSTEM files are handled. 

As in the Model I, the directory is located on Track #17 
(11H), and occupies the entire track. Because of the Model Ill's 
double density format, this amounts to 18,256 byte sectors. The 
first sector (#0) contains the Granule Allocation Table (GAT), the 
diskette Master Password encode, the diskette name and any AUTO 
command which may be active. Sector #1 contains the Hash Index 
Table (HIT) and the Information by which TRSDOS is able to locate 
the SYSTEM files. The remaining sixteen sectors of the directory 
track . contain the directory entries for the diskette's user files, 
five entries per sector. 

Le$'s take a look at Track #17 in detail: 

1. Sector #0 (the GAT sector) - The first 40 bytes (00H to 
27H) make up the GAT and represent Tracks to 39 on the 
diskette. Each byte is a "bit map" of the allocated granules in 
the corresponding track. Bits through 5 represent the 6 granules 
of the track and bits 6 and 7 are not used (always 0). Thus, a 
fully allocated track would appear as a '3F' in the GAT. In binary 
this would be 00111111. If a byte is '25', a binary 00100101, it 
means that the first, third and sixth granules are allocated. 

Bytes CEH and ,CFH of Sector #0 are the encoded Master 
Password for the diskette. This is normally D38F for "PASSWORD". 
Bytes D0H - DFH are the diskette's name in ASCII and the creation 
date in MM/Dp/YY format. Bytes E0H - FFH are used to store any 
AUTO command which may have been set up for the diskette. If 
byte E0H is a W (carriage return), no AUTO command is in effect. 

2. Sector #1 (the HIT sector) - The first 80 bytes (OOH to 
4FH) make up the Hash Index Table (HIT). Each non-zero bytes is 
the hash code for an active file in the directory, and its position 
in the HIT Indicates in which sector and where in the sector the 
directory entry is located. For example, on a standard Radio Shack 
TRSDOS diskette, the first two bytes are 'F0' and 'F4', which are 
the hash codes for BASIC/CMD and CONVERT/CMD. A glance at 
Sector #2 will confirm that these files are the first two entries in 
that sector. The Model HI uses the same algorithm as the Model I 
for computing hash codes. 

Bytes E0H - FDH are used to store the size and location of 
the TRSDOS SYSTEM files. There are 15 pairs for bytes and each 
pair represent one of the SYS files. The first byte of the pair 
contains the granule offset and the size of the file in granules. 
The second byte of the pair is the number of the track in HEX 
where the file starts. To see how this works, let's take a look at 
bytes E4H - E5H which are '4210'. The '42' is 01000010 in binary 
notation. Because the byte has two pieces of information 
embedded in it, we'll write it as 010 00010. The '010' is the 
granule offset from the start of the track which is also TWO. 
Remember that a granule is three sectors in the Model in. The 
second byte of the pair is '10' which means that the file starts on 
Track #16 (10H). Putting it all together, we see that the file 
starts on Track #16 (10H), beginning on Sector #6 (offset of TWO 
granules) and occupies TWO granules or six sectors. This particular 
file, by the way, is very similar to SYS2/SYS on the Model I. The 
fifteen pairs of bytes in this area represent the TRSDOS resident 
module and fourteen overlay modules making up. the entire DOS. 
The sixteenth pair is presently 'FFFF' and is not in use, no doubt 
being reserved for a future overlay, like a spooler (Just a guess). 
Since the user never calls the DOS modules directly, they need not 
have any names and the Information in these byte pairs is all that 
TRSDOS needs in order to locate them when program execution 
calls for them. 

3. Sectors #2 through #17 (Named directory entries) - There 
is room for five, three line (48 byte) directory entries on each of 
these sixteen sectors. This gives a total capacity of 80 named 
files. The sixteenth line on each sector is not used, so Radio 
Shack placed a '(c) 1980 Tandy' on it as a filler. Let's look at the 
first entry In Sector #2 to see how it Is constructed. This is the' 
entry for BASIC/CMD and It looks like this: 

5E08 5000 0042 4153 4943 2020 2043 4D44 
0000 EF5C 1200 0E06 FFFF FFFF FFFF FFFF 
FFFF FFFF FFFF FFFF FFFF FFFF FFFF FFFF 

The first byte, '5E' contains the file type, Its visibility and 



protection level. In binary this is 01011110 and we'll write it as 
10 11 110 to make it easier to break it down. Bits 0-2 are the 
protection level. In this case. It is 6 (EXECute only). Bit 3 is the 
visibility bit. A '1' means that the file is invisible, as in this case. 
If bit 4 Is a '1', the file is an active file and has a corresponding 
HIT entry. Bit 5 is usually '0', but If it should be a '1', it means! 
that the file has a backup limitation. Radio Shack has said in a 
newsletter that certain programs like Scripsit and VisiCalc will be 
limited to two backup copies. Whether this can be circumvented by 
setting bit 5 to '0', I have no idea. Might be worth trying. If bit 
6 is a '1', the file is a SYSTEM file. If it is a '0','it is a USER 
file. If the Model III TRSDOS has been Set up using the same 
methods as the Model I, bit 7 will be '0', for a Primary directory 
entry and will be a '1' for an EXTENDED directory entry. I don't 
know if this is true for the Model HI. If not, a file will be limited 
to 12 extents. In any case, bit 7 is '0' for all my files. 

The second and third bytes are simply the file creation month 
and year in HEX, in this case '08 50', meaning 08/80. The fourth 
byte shows the location of the EOF byte in the file's final sector. 
The fifth byte is the Logical Record Length of the file (00 means 
256 bytes). The sixth through the sixteenth bytes are the file 
name in ASCII, In this example, BASIC CMD. 

Bytes 17-18 and 19-20 are the UPDATE and ACCESS password 
encodes, respectively. For this file, we see '0000 EF5C. 'EF5C* is 
the code for NO password, so BASIC/CMD'.s has an UPDATE password 
assigned but no access password. 

Bytes 21-22 indicate the total number of sectors in the file In 
LSB-MSB format. So BASIC/CMD has 18 (12H) sectors. 

The next 26 bytes are arranged in pairs and are used for the 
file EXTENTS. 'FFFF' indicates no further extents. The first byte 
is the number in HEX where the extent begins. In our example, 
this is '0E' meaning Track #14. The second byte of the pair 
contains the file's granule count and offset, encoded in exactly the 
same way as for the TRSDOS system modules. For BASIC/CMD, this 
byte is '06' which is 000 00110 in binary notation. Thus BASIC/CMD 
occupies 6 granules and starts at the beginning of the track (no 
offset). 
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SUPER SCRIPSIT 
by Jack Bognuda 

[Reprinted from BITS & BYTES, a publication of the TRS-80 
SYSTEM-80 Computer Group, 16 Laver Street, MacGregor, Queensland 
4109, Australia.) 

Apparat issued ZAP Number 83 for zapping the Model I 
SUPERSCRIPSIT for TRSDOS to enable It to - run with Model I 
NEWDOS/80. To enable this TRSDOS version to run under NEWDOS 
it is necessary to make the following changes:- 

SCRIPSIT/CMD Sector 09, IF 
change: 

C93A 
D9AB 4FCD F04A C021 004D 0123 00CB 1E38 
0104 CB1E 3801 040D 2320 F204 0528 0105 
2105 00CD 6666 0604 CD46 667D 3222 7EAF 
C900 0000 
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even 



realf 



to: 

0411 333C 21DC AC1A 7713 D630 
0102 005B 2310 F036 8400 0000 
6606 04CD 4666. 7D24 2528 023E 
AFC9 0000 



FE0A 
0605 
FF32 



C906 
3003 
CD66 
227E 



SCR17/CTL Sector 00,31 
change : 

69FE 3038 F9FE 3430 F5CD 9E75 0E00 3271 
42CD 1944 3E0F CD33 0021 

to: 

6932 728D 216E 8DCD 1944 2805 F6C0 CD09 

4418 0644 4952 2030 0D21 

SCR17/CTL Sector 02.A2 

change: 57 08CB 8F52 to: 57 4450 8D52 

These Zaps Include provision to enable you to read the 
directory. Although not listed in the text of the Menu which 
appears initially on SUPERSCRIPSIT, if you press "D", the 
directory will coae up. 
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A COMPREHENSIVE NOH-REVIEW 
by Gary Bullard 



' (This article Is reprinted from ECHO, the newsletter of the 

Green Country Computer Association.] 

This will be a sad story of a quest that ended in failure. 
Yet the ending is not necessarily an unhappy one because the 
intrepid adventurer who wandered into unknown territory gained 
knowledge and became wiser. Sadder, but wiser. 

To* intrepid adventurer was me. Sure, many people think I 
am a computer expert. Just goes to show how many people I've 
managed to fool. While I may know all there is to know about 
some aspects of computer life (such as: Apples are better than 
Tandys t) there are still some areas where I am a novice. 

[t NORTHERN BYTES editor's note - he didn't fool ME - I 
could tell he wasn't a computer expert, right off the battltj 

Telecommunications Is one such area. Actually, I have owned 
a modem for several years. But I have only used 1% for local 
bulletin board systems and occasionally to connect with the 
computer where I work. Simple, easy, straightforward. A matter of 
doing remotely what I would be doing at a terminal in the same 
building. 

It became time to expand my horizons. Commercial, database 
services such as CompuServe and the Source have been around for 
years; It was time I tried them out. Most service companies 
offered a "Starter Kit," designed to get you logged on and 
introduced to their command protocols and services. Often these 
kits would offer enough "free connect time" to offset the coat of 
the kit, thus allowing you to sample the database's services before 
committing yourself to a subscription. 

Before I could decide which one I wanted to try first. I got a 
call from Western Union. They were inaugurating a new service 
called EasyUnk and they wanted to give me a free three month 
trial subscription. All I would have to pay for would be any 
service not directly related to connect time, such as telegrams or 
mall sent through the post office. 

Sounded good, so I accepted. Soon I received a hefty 
package containing a directory of users, the reference manual and 
guidebook, and a password. 

The directions for logging onto EasyUnk were complicated, 
even for somebody used to reading IBM manuals. After a few 
unsuccessful attempts at logging on I finally got through. Then the 
real fun began. 

First, the prompts were very cryptic. Instead of "READY", or 
■W, or simply a cursor, I would see "PTS" on the screen. The 
book admitted that thia meant something like, "Prepare To Send". 
And that was one of the more reasonable examples. Some of the 
commands were equally cryptic, if not more so. For instance, 
"XXXX" might mean "send this file". Very mnemonic, yes? 

I explored the system a couple of times but got little out of 
It except frustration./ The book was complicated enough that it 
was a few weeks before I attempted to log on the first time. That 
cost me. 

Why did it cost me? Because Western Union sent an 
electronic letter to my electronic mailbox welcoming me to the 
EasyUnk service. When I did not access my mailbox within a few 
days, they printed the mailbox's contents and sent them to me 
through the post office. Then they charged me for the service. 

When I realized what they were doing I called and asked them 
to cancel my subscription immediately and stop writing and sending 
mail to me. 

Apparently tlley did not believe I received the first letter so 
they sent another. And charged me for that one, too. So I wrote 
them a letter and sent a couple of copies to their brass hats 
explaining what I thought of their service, and asking again to be 
removed from their subscription files. They got the message this 
time and quit. 

Maybe I'm a slow learner, but I figured there HAD to be 
something better than EasyUnk. Every computer store and 
bookstore was selling a box labeled. "CompuServe Starter Kit." The 
box contained a user's manual, password, telephone numbers, and 
five free" hours of connect time. Furthermore, according to the 
box, you could access almost any service that CompuServe offered 
during that five hours. If you liked what you saw, you could 
become a regular subscriber. 

Unfortunately, those five free hours cost nearly forty dollars. 
Thrifty person (cheapskate) that I am, I waited until I found a box 
for only twenty-six dollars before I bought one. 



The CompuServe manual is much easier to understand than the 
EasyUnk manual. The commands. If not always obvious, are at 
least reasonable. The login protocol did not require a degree in 
cryptography. And the services sounded useful and fun. 1 was 
ready and eager to try It out, even though the kit limited me to 
300 baud and evening hours. 

Another rude awakening. When I logged into CompuServe I 
was met with a message informing me that I had to give them my 
credit card number or bank account number. It seemed ao 
unreasonable request, since I had already paid for five hours of 
connect time, but the computer insisted. If I had any problem with 
that requirement I should call their customer service number. 

So I did. The lady who answered the phone was very polite, 
but confirmed that until I provided a credit card number or my 
bank account number I would not get access to CompuServe. Never 
mind that I had paid for a "CompuServe Starter Kit" that promised 
five hours of connect time; they changed the rules. Now a user 
must subscribe first, THEN he will be allowed to use the five hours. 

This posed a dilemma: I don't use credit cards and I refuse 
to let anybody else write checks on my bank account. I would be 
happy to pay any bills I run up, but I don't want any electronic 
transfers depleting my meager account when I am not looking. 
CompuServe insisted that they send a statement before they draw 
the money out of my account, but they would not send me a bill 
and let me pay that way. 

It sounded like they want the deck stacked in their favor. If 
a mistake is made and they overcharge me, they will have the 
money and I will have to fight to get it back. The other way, if 
they overcharged me, I could withhold payment until the problem is 
straightened out. 

Just out of curiosity I went to my bank and asked how the 
electronic fund transfer worked. I was told that they get a tape 
with the transactions. Their computer reads the tape and treats it 
as gospel. Whatever that tape says to deduct from my (or 
anybody's) account gets deducted. I asked the bank what happened 
if somebody overcharged? I was told that the money was deducted 
anyway, and I could fight the system to get It back. And what; If 
my account didn't have enough money? Then I would be charged a 
$15 overdraft fee. 

In other words, giving somebody your bank account number is 
like giving them a blank check. It Is worse than a credit card 
number because you can stop payment on a credit card purchase, 
and thefts are limited to fifty dollars In most cases. 

That meant that I was stuck with a "Starter Kit" that was 
useless and worthless. The only person who could use It would be 
somebody willing to give out his credit card number or bank 
account. I was simply out $26 unless I could find somebody to 
take It off my hands. Fortunately, I found somebody at the 
following GCCA meeting. 

Twice burnt, thrice ahy, right? I told you I was a slow 
learner. Maybe some of the big database services are 
unreasonable, but surely not all were? 

I found another service called Software Express Videotex. 
Their starter kit only cost $15, but they only promised two hours 
of "free" connect time. They had fewer services than CompuServe, 
but their primary function was software distribution through 
telephone lines. You would choose the program you wanted, 
download it, then they would bill you for the purchase. 

Fifteen dollars seemed a small gamble, so I sent my money 
off. Back came a user's manual, password, and a catalog of Apole 
and IBM software at very reasonable prices. 

Oh, happy day! Finally I was going to get to play on a big 
database service. I immediately logged in and was met by a 
request for my credit card number or bank account number. Deja 
vu! 

Enough Is enough, I sold that package in much the same way I 
got rid of the CompuServe package. No more, until one of these 
companies begin billing for services rendered. There are too many 
hands in my pockets now for me to add another one. 

Not that I suspect any of these companies of being dishonest, 
or having any deliberate intentions of cheating me. But I am not 
In the habit of paying my bills with blank checks and I do not plan 
to start. Even an honest mistake could be a nightmare with that 
system. 

This non-review tells you nothing about EasyUnk, CompuServe, 
or Software Express. It is only a sad tale of one fellow's 
unsuccessful attempt to explore some on-line computer services. 

The moral of the story (if there is one) would be that If you 
are a person who does not use credit cards and who refuses to 
divulge your bank account number, don't buy any starter kits! 
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They are a waste of tine and money, unless you get lucky and can 
Itll them to somebody who can use them. 

W^ Some time In the near future I would like to write a review 
if as many Tulsa bulletin board systems as possible. Along with 
Eat article would be a list of bulletin boards and their numbers. 
u All Sysops who would like to be included in this compilation 
iisase let me know about your systems. Please leave me a 
fiessage on GCCA's Computercenter at (245-3456), Green Country 
BBomputer Association Associates: GTABBS at (663-7305), and The 
,§$pntom at (585-9437). or TCS at .(628-0662) and I will get it [these 
in area code 918]. 
Specifically, I would like to know: the name of your board. 
„ telephone number, baud rates supported, hours of operation, the 
«ind of computer running the board, what BBS program is being 
pted (and did you write it?), special features your board provides. 
MM) any comments you would like to add about your BBS. 
^ All non-sysops are asked to leave a message to me' describing 
lljour favorite bulletin boards, which features you like (or hate), and 
fahat features you would like that do not presently exist. 
V" Any and all comments from sysops and users will be 
appreciated. The more responses I get, the sooner this compilation 
gBill be complete. 

'*. [NORTHERN BYTES editor's note: 1 assume that Gary would 
?«ot mind receiving responses from users outside of the Tulsa area 

■jM well. 

*" As for the billing problems, I concur completely with Garys 
«_ients. I, also, am one who does not use a credit card (and 
either does Charley Butler at The Alternate Source, which is one 
.reason that TAS offers invoice billing of NORTHERN BYTES). I 
bather do resent the fact that some businesses feel that you are a 
^ion-person if you do not have a credit card. Well, I may be the 
; last of the non-persons, but I'm just stubborn enough that if I ever 
Mneed a rental car and nobody will rent me one because I don't have 
ione of the magic cards, I'll just walk to the nearest highway and 
*»tick my thumb out (I've travelled many miles that way in my 
■lifetime). These credit card companies are modern day robber 
f%rons, as they increase their interest rates while all other lending 
'itaitltutions are decreasing theirs. I admit there are occasional 
['advantages to having a credit card (such as if you do a lot of 
ordering through the mail), but not enough for me to pay $18 a 
|$ar for one. And even if I had one, I certainly wouldn't give the 
number to an online computer service, where a computer error 
| liuch a failure to notice that I have logged off the system until a 
i «ouple of days later) could result in a unexpectedly high charge to 
hmy account. 

;?' For the same reason, I'm not about to authorize anyone to dip 

[Jnto my bank account (not that it would matter much, there's never 

I aiiy money there anyway). So what is the answer? I think that 

f these big online services should be willing to check your credit 

' fating when you sign up (they certainly have the resources to do 

i it!) and if you're not a real deadbeat, they should be willing to 

| extend you a credit limit of, say, $25 or $50. If you wanted more 

' you could prepay to your account. Likewise, for those with poor 

<Jcredit ratings, they should be willing to accept prepayments to the 

account (this still leaves them in control of a portion of your 

money, but at least you know they can't electronically abscond 

j»ith more than what you've deposited - and they're protected 

because they can shut you off if your prepaid account runs dry). 

At present, the only online service that I know of that offers an 

Option of prepayment to an account is American PeopleLink - and 

even they don't seem to encourage that method of payment. 

CompuServe temporarily shut The Alternate Source off 
recently because they had just discovered (somehow) that TAS was 
operating under Chapter 11 protection (which they have been for 
Over a year now). Since TAS signed up with CompuServe AFTER 
the Chapter 11 went into effect (and since CompuServe is using the 
Electronic Funds Transfer to make sure that they get theirs first, 
anyway), there is not much likelihood that they are in any danger 
of ,not being paid. Nevertheless, even with the deck stacked in 
their favor, they felt it prudent to simply disable the account, 
without so much as the courtesy of a phone call to find out what 
the situation was. Admittedly, once things were straightened 
around (TAS had to call THEM to find out why the account wasn't 
working), they did apologize and did provide the free use of a demo 
account for a couple of days to make amends. But, it sure seems 
like they are awfully paranoid about not getting paid. Perhaps, in 
their rush to sign up the Big Bu$ine$$ u$er, they've forgotten 
about the personal computer users that helped make them what 
they are today - and there's still a lot of us that don't have credit 
cards! 



And then there's the whole can of worms about privacy of 
Electronic Mail (or lack of it) on systems such as CompuServe. But 
I'll save that for another issue...] 

MISCELLANEOUS HINTS AND TIPS 
Condensed from old issues of NORTHERN BYTES 

1. Did you ever wonder why, when you use a BASIC LPRJNT 
statement to print numeric variables, a carriage return is "forced- 
after 132 characters or less (If you don't send one in your 
program)? If you're not familiar with this effect, type FOR X-l 
TO 1000: LPRINT Xj: NEXT from BASIC READY. If you have ail 80 
column printer, you'll see it print alternate full and partial lines. 
The reason for this is a CP 84H (84H-132 decimal) instruction found 
at 20D9H in the ROM. A similar effect occurs if you use a comma 
as a field separator (use a comma instead of a semicolon in the 
above demonstration to see the effect). In this case yon will find 
that partial lines will be printed even If you use string variables. 
The culprit here is a CP 70H instruction found at 211EH ill the 
ROM. If you have an 80 column printer and a Model *P, you may 
wish to sap the MODELA/III ROM image with values more 
appropriate for your printer. 

2. If you have one key on your keyboard that seems 
particularly bouncy (returns more than one character when you hit 
it) or that you sometimes have to hit two or three times before it 
"takes", try opening up your computer and re-soldering the contacts 
on the underside of the keyboard printed circuit board. I have had 
this problem with several of the keys on my early Model I 
keyboard. Apparently not enough solder was used during the 
automated soldering process, and after repeated use the solder 
connection tends to crack and make intermittent contact. The 
solution Is simple apply a little more solder (be sure to use a 
low-wattage soldering Iron and good electronic type solder). Note 
that this advice may not apply to the later keyboards (I'm not sure 
how they were constructed), but it certainly Is applicable to the 
original Model I keyboards) 

3. Want a power on Indicator lamp on your Model III? If you 
have some experience in electronics, you can wedge an NE~2 neon 
lamp between the bottom of the RESET switch and the mounting -^^ 
stud below it - it's said to be a perfect fit. Use a little extrt Jr J 
wire and a dropping resistor, insulate everything thoroughly _, 
(remember this is 120 volts you're working with), and connect the 
lamp to AC power at the main power switch (Just below the reset 
lamp). This will cause the reset button to glow a soft orange when 
the power is on. If you can't figure out how to do this from these 
instructions, you probably shouldn't attempt this yourself anyway - 
seek help from an experienced hardware hacker! fThis hint 
extracted from an old Issue of the Marin County TRS-80 Users 
Group (MCTUG) Newsletter.] 

4. If you have a Model I with an LNW double density adapter 
(Doubler). you should be aware that a Z-80 HALT instruction will 
not reset this Doubler to single density - which means that in some 
cases the computer will not reboot properly (as whem the BOOT 
command Is issued from some DOSes). You can force the Doubler 
to change modes by loading a value of FEH (for single density) or 
FFH (for double density) to memory location 37ECII (14316 decimal). 
[Extracted from the LNW User Group Newsletter]. 

5. If you are internally configuring disk drives, you should be 
aware that the MX (or MUX) switch or shunt is not necessarily set 
the same way In all drives on the system. The problem is that 
some drive manufacturers define an open MX switch In the same 
way that other manufacturers define a closed MX switch. In my 
system. I have both Tandon and TEAC drives. The MX switch on 
the Tandon Is OPEN while the same switch on the TEAC is CLOSED 
- and the system won't operate properly with any other 
combination. 

On a related subject, if you are ever troubleshooting a Model 
I and find that it works fine with only one drive connected but 
refuses to operate with a second drive hooked up, you probably 
have the drive cable turned upside down, so that the "pins pulled" 
side of the connectors are on the wrong side of the drive edge 
connectors. However, if you configure the drives internally (setting 
the appropriate drive select switches in each drive), then you can 
use the drive cable turned upside down (connectors turned over at ^jpBtfc 
the expansion interface and each drive). Why would you want to ^ 
do that? Well, it can save you the expense of buying a new drive -...^ 
cable if you add double sided drives to your system (which MUST 
be Internally configured to operate properly). 
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HOW TO WASTE MONEY ON COMPUSERVE 
by Jack Decker 

It all started with the best of Intentions. I had written an 
article suggesting a new protocol that would permit message-base 
sharing between Bulletin Board Systems (so that two BBS's on 
opposite ends of a major metropolitan area could offer a common 
message area that would be shared by both BBS's, for example. 
The protocol might also be extremely useful to Amateur (Packet) 
Radio operators (this does pot mean I have any greater appreciation 
of the A.R.R.L., it Just means the protocol might be useful in that 
situation). 

Anyway, I figured that the article could stand a bit of 
critique before I put It in NORTHERN BYTES. Since my deadline 
was fast approaching, I wanted to put It out where I could get 
some more-or-less immediate feedback, and besides, I wanted it to 
be available to those who might be able to make use of it as 
quickly as possible. What better place to place it than on 
CompuServe, right? The great electronic utility that lets everybody 
send their thoughts to the nation - surely this was the way to go. 

(As you read farther, keep in mind that I've been heavily into 
computers for over seven years, and into telecommunications on and 
off for the last four or five. I'd hate to think what an 
Inexperienced user would think about the "user-friendliness" of 
CompuServe.) 

What I wanted to do was to get the file where It could be 
read by as many people as might be interested in the subject. 
There is a telecommunications Special Interest Group (SIG) on 
CompuServe (It's operated by Micro-Systems Software, the DOSPLUS 
people), but I thought it might not hurt to also get the file into 
the telecommunications area of at least a few of the other popular 
SIGs - perhaps some of the machine specific ones, which would of 
course include at least one of the TRS-80 related SIGs. 

Unfortunately, Howard Hughes didn't leave me a penny in his 
will, so I didn't want to spend all night uploading the same file 
over and over to the Data Libraries of the various SIGs at 1200 
baud. Wouldn't it be easier, I reasoned, to upload It to the system 
once, and then copy it to wherever I wanted to put it. It's logical 
thinking like that that gets you Into trouble. Ask Murphy 

Now, there is another fly in the ointment here. The nearest 
packet network node to me here in the Great White North is in 
Marquette, Michigan, and it happens to be a Tymnet node. Tymnet 
is fairly efficient on straight ASCII transfers, but reminds me of 
molasses in January (at the North Pole) when doing XMODEM 
transfers. First a 256 byte block is transmitted, at a nice, fast 
rate of 1200 baud. Then it is transmitted through the packet 
network. Then you wait (and wait, and wait...) for an ACK byte to 
come back from CompuServe so that the next block can be 
transmitted. You're paying for 1200 baud service, and getting an 
effective baud rate of about 35, because each block has to be 
acknowledged before the next block can be sent - and that 
sometimes takes several seconds!! , 

Of course, I didn't know any better, so I proceeded to begin 
uploading my lengthy document to my personal file area. About 25 
minutes later, the upload was complete. Let's see, that's 25 
minutes of 1200 baud (ha!) use of CompuServe and 25 minutes on 
my long distance carrier... 

Well, at least now I could zap the file over to all those Data 
Libraries, so that everyone could read my wonderful ideas that 
would revolutionize telecommunications <*>. Right? Guess again, 
byte breath! 

[For those of you not into discussion-oriented Bulletin Boards, 
I should explain that the <*> symbol indicates that the writer Is 
speaking with "tongue in cheek", which is what the symbol is 
supposed to represent. It usually Indicates that the statement Just 
made should not be taken at face value.] 

As it turns out, there is a SUBmit command in the Data 
Library command list (it does not appear on the menu, but will 
appear if you type HELP instead of a Data Library menu item), 
which allows you to transfer files to the Data Library from thq 
public file area. Now, I should have realized that "public file area" 
and "personal file area" are not the same thing. But, I had never 
seen a reference to the "public" file area elsewhere on the system. 
So, for a while, I tried to use SUBmit to transfer my wonderful 
prose to the TELECOMM data library. And, of course, It kept 
telling me it couldn't find the file (and that I should try again in 
44 hours!). I didn't quite understand that, since the file was 
perfectly visible in my personal file area. Hmm, maybe I'd better 
hang up and switch to 300 baud... 



Back into CompuServe and on about the third reading of the 
help text for SUBmit, the light dawned. Well, thought I, what is 
this public file area that they talk about? A little more 
Investigation (and some lucky guessing) turned up the fact that it 
is now called ACCESS. 

Okay, so I go to ACCESS, and find that it also has a SUBmit 
command. And, lo and behold, the purpose of the SUBmit command 
in ACCESS Is supposed to be to transfer files to the public ACCESS 
area from your personal file area. Okay, so this Is going to be 'a 
two step process. I SUBmit my file to ACCESS from my personal 
file area, then once It is in ACCESS, I SUBmit it to the data 
libraries of my choice. 

Right. If you believe that, you probably also believe in Santa 
Clans and the Easter Bunny. 

Well, I proceeded to SUBmit my file to ACCESS, and after a 
couple of false starts, got it over in just the way I wanted it 
(coded with the proper keywords, etc.). And I got a message 
telling me that the file would be available on ACCESS within 24 
hours. This is CompuServe's version of "the check is in the mail", 
but at the time It did seem to explain the message I had received 
back In the data library, instructing me to wait 24 hours. 

Nothing to do now but sign off, and wonder Just how much 
time I've already blown. Tymnet disconnects just as CompuServe is 
about to tell me how long I've been on the system. I mutter 
something about how maybe It was against nature for Tymnet and 
CompuServe to marry, and go to bed. Then it hits me - I could 
have probably uploaded the file five times in the time I took 
uploading the file and the trying to figure out how to move it. Oh, 
well, at least tomorrow night I can start sending the file all over. 

Yup. You guessed it - the file was nowhere to be seen on 
ACCESS. It acted as though it had never heard of that file. 

Well, I think to myself, I can outsmart this system. Rather 
than trying to put the file in a Data Library, I'll just send it via 
EasyPlex (CompuServe's optimistic title for their electronic mail 
service) to each of the SIG System Operators (SYSOPs). But first, I 
have to know their CompuServe I.D. number. I go to the TELECOMM 
sig and spend several minutes there, trying to find the SYSOP's I.D. 
number. I finally find it. I disconnect and compose a message 
offline, explaining what is coming in the next message (my plan is 
to upload a "cover letter" first, then send the text file itself in a 
separate message). So, I compose the cover message, call back and 
upload it and send it via EasyPlex. Now, the moment we've all 
been waiting for - I tell CompuServe that I want to USE my text 
file from my personal file area for the next message. It cheerfully 
complies for a moment, then starts spewing out an endless stream 
of system warning messages telling me that the file is too long and 
has apparently overflowed EasyPlex's buffer. A multi-million dollar 
computer system and It can't even handle a message that almost 
fits into the memory of a TRS-80 Model I (with ALLWRITE! 
co-resident In memory, no less). 

Now I have to send another message explaining the situation 
and requesting that my "cover letter" be Ignored. Well, I think, 
maybe the system goofed. I go back to ACCESS and once again 
SUBmit my file to the public access area. Then I go to FEEDBACK 
(your chance to talk back to CompuServe and ask them how the 
heck to do something that should be simple, but isn't). I leave a 
message asking how to transfer the file from my personal file area 
to a Data Library of a SIG. Then I sign off and wonder how many 
times I could have uploaded the file in the time I was on tonight. 

This is becoming an obsession with me, *o the next day I 
telephone CompuServe on their "Customer Service" line. I have 
learned to have something to read handy while calling anybody's 
"Customer Service" line, because chances are you are going to be 
treated to several minutes of "elevator music" interspersed with 
obnoxious announcements promoting the company's services (all the 
time that you're getting madder and madder that you're having to 
wait, they're making you listen to commercials. This takes a lot of 
nerve. The guy that invented the machine that injects commercials 
into music-on-hold is probably related to the character that 
invented the parking meter). CompuServe's announcements informed 
me to have my user I.D. ready, and that all "snap-pak" expiration 
dates have been extended indefinitely. They could have told me 
this once and I wouldn't have minded, but unfortunately, they 
repeated it several times. I finished two chapters in the book I 
was reading, and vowed never to buy a "snap-pak". 

Finally a customer service representative came on the line, 
and I gave him my simple request. How, I asked, do you copy a 
file from my personal file area into a SIG's Data Library. He said 
he'd go check with someone who had recently done that. One 
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^Chapter later, he came back and said that It couldn't be done. 
feThere was just no way. 

f -Well" I said, "how about if I SUBmit it to ACCESS and then 

^SUBmit it from there to the SIG's Data Library? He didn't know 
'anything about the SUBmit command. "Just go to any Data Library 
H and type HELP", I said, "and you'll see it listed." "Oh he said 
•.{after some searching through the system), "you type SUBmit and 
I then upload your file." "No, UPLoad does that. Read the HELP file 
i, on SUBmit". At this point I could tell that I was more familiar with 
^SUBmit than he was - at least I'd HEARD of it! Well he agreed 
Cthat my proposed method of going through ACCESS should work. 
put. I noted that there was not a tone of confidence in his voice 

>f{<'B8 he said It. . 

Since the notice that the file would be online in 24 hours 
>'■ obviously could not be believed, 1 decided to wait 48 hours and try 

* again. When I logged on, I had an EasyPlex message waiting. It 
I> was from CompuServe, and was a reply to my FEEDBACK message. 
"' It said "While It is possible to transfer a file laterally from the 
% Personal File Area to the EasyPlex area, it Is not possible to do so 
iffrom the Personal File Area to one of the Special Interest Groups 
?' data libraries." You did notice that they failed to mention the size 
^limitation on file transfers to the EasyPlex area? Doesn t anybody 
\ ., send long letters anymore? 

Three paragraphs of obviously canned text followed, giving 
I, the complete idiot's guide on how to add files to database libraries 
■Since I felt like a complete idiot at the time, I read It, but it 
'didn't tell me anything I didn't already know. 

Hope springs eternal. I go to ACCESS, hoping that just maybe 

* my file has been transferred there. Need I even bother to mention 
>' what I didn't find? I do a quick scan and note that there s 
| nothing on ACCESS newer than three days old. So much for within 

; 24 hours." fc 

f I give up I've been licked. I decide I am not going to keep 

I : calling back, day after day, waiting for "them" to decide to move 
! my file I go to the TELECOMM library and do a straight ASCII 

> upload (no error checking/correction, but who cares? At this point 
I just want to get it uploaded). The upload takes about 10 minutes, 

; ' including the time I spend manually typing in the keywords and 

description of the file. I am ready to cry. Or maybe to move in 

f'' the middle of the night, and not give CompuServe my forwarding 

i B A few days later I check in once more, and find that the file 

'» is not in ACCESS nor in the TELECOMM Data Library, and I have no 

> idea why. At this point my feelings turn to disgust. It s no 
t wonder that new users have such a hard time figuring out the 

: system^ ^^ ^ ^ justify the time spent as not being a total 
'. waste since it forms the basis for a newsletter article that will 

serve to 1) warn others that you can't move a file from your 
k personal file area to a Data Library on CompuServe, and 2) 
'"- perhaps provide a touch of humor In this otherwise dreary 
h publication. Who am I kidding? Nobody else would have been dumb 
U. enough to try to do such an apparently logical thing, and I could 
s dig out my exchange newsletter files and reprint the 992 variations 
r on "Murphy's Laws" that have appeared in those publications if I 
' wanted to Inject some humor, for a lot less money. 

It occurs to me that with my old TRS-80 Model I, I can copy 

files from any file area to any other (throw out that bum who said 
i "but there's only one file area to start with!"). I can even copy 

from one disk to another! You know, I'll bet that even an IBM or 
1 an Apple or a Commodore can do the same thing! What is 
; CompuServe running - an EINAC? 

I Ironically, my proposed protocol (you know - the one I ve 

? been trying to get into the Data Library throughout this article!), II 
I widely implemented, would give some of the advantages of 
: belonging to a service like CompuServe to Bulletin Board System 
■ users. Judging from my experiences in trying to copy one lousy 
!" text file, I'd say such a system is long overdue. 

Say, you don't suppose that someone at CompuServe READ my 

file, and decided naw, couldn't be 



When I run It In every version of TRSDOS 6 and DOSPLUS IV 
BASIC that I have, however, three of the 17 solutions are not 
calculated or displayed. 

I have tried to revise the listing so that It will ru Qsk 
satisfactorily in the Model 4 using essentially the same approach r^|J 
the original, but I have not succeeded. What Is so unusual aboil, 
this seemingly prosaic program? 

By itself, this example is not of great significance. Yet I 
can't help thinking that there are many other subtle traps oat 
there waiting to be sprung on us, when the results may not be so 

innocuous. •.,«..■ 

This Is another instance of the necessity of subjecting a 
program to a severe shake-down cruise before accepting it as being 
free of bugs. Even then, can we be sure it is correct? We have 
not yet dispelled "The Illusion of Precise Computing". 

100 REM: Solutions of X*X+Y*Y=Z*Z»Z In integers for 2 in the 

range 1-20 

110 U$="(## ## ##) " : REM 22 b,ank » P " CM 

for Model HI, 30 blank spaces for Model 4 

120 FOR Z - 1 TO 20 

130 M - Z * Z * Z 

140 FOR X = TO M 

150N=Z*Z*Z-X*X 

160 IF N < M/2 THEN 210 

170 Y - 1NT(10000 * SQR(N)) / 10000 

180 IF Y - INT(Y) > .00001 THEN 200 

190 PRINT USING U$; X, Y, Z; 

200 NEXT X 

210 NEXT Z 

220 END 



WHAT GOES ON HERE? 

(This article is reprinted from the Milwaukee Area TRS-80 
User's Group (M.A.T.U.G.) newsletter.] 

There doesn't appear to be anything special or particularly 
out of the ordinary about the BASIC program given in the listing 
following. When I run it in Model III BASIC, It produces an output 
of 17 triples of integers, supposedly all of the solutions there are 
for the selected range of the variable Z. disregarding obvious 
Interchanges of the variables X and Y. 



CONTROL YOUR CRT CONTROLLER 
by Mike Dlnn 

[This article is reprinted from the Canberra ^<*-™J*™' 
Group Inc. newsletter, 113 Owen Dixon Driye. Evatt ACT 2617, 

AU9tr Tthe good old days when Model I and System 80 were stat, 
of the art, we seemed to have a lot of " na< * ers " ""^l.. ^fe 
word seemed to refer to those who enjoyed digging in o their to«8w 
their hardware and/or software almost for the sake of It. •«•«?» 
that "hacker" is now used by the media seems to have changed the 
definition somewhat, but irrespective of title \*Mj«J£« 
satisfaction out of doing the same sort of things with my model 4P 
as I did with my System 80, IHW expansion interface, Omlkron 
mapper and LNW doubler. The possibilities are not quite »*£% 
but if the Editors bully me enough, I'll try and write an occasional 
series on some of the things you can do with *«r «**£ » «£ 
we can get more people interested and contributing. Here is one 
on the Model 4's CRT controller. o„„t m ii„. 

The Motorola 6845 is a 40 pin programmable CRT Controller. 
By loading its registers, you can control such things as th« <™*™* 
of characters in a row, character lines on the screen. «>».tance 
between lines, hardware scrolling, hardware cursor and react ^tothe 
position of a light pen. The Model 4 uses what Is cf ed » 6B045 
which Is a "hard-wired" version of the 6845 and only d lows he 
hardware scroll option. Selection between 80 by 24 and 64 by 16 to 
done by toggling pin 3 which is normally used for light pen input 
Other than this the 6845 and 68045 are pin <>°»P«"««' an * 
therefore the obvious thing for a hacker to do » *"■ """J? 
good hacking tradition, though, this is not quite straight forward, 
but 1 suggest that Is part of the fun and challenge. 

The first problem is that the BOOT ROM carefully clear. »H 
of the CRTC registers to zero, so that you end up with no vi**o 
dsplay at all. It should be possible to modify the ROM to load *e 
registers but I'm not at that point yet. However, all Is not Wit. 
It turns oat that the TRSDOS boot sequence DOES load the 
registers. The values controlling the lines per page can be readily 
zapped in Track 0,. Sector from 18 hex (24 decimal) to 19 hex (25 
decimal) and lo and behold, you have 25 lines displayed. Scan «ne. 
per row can be changed from 8 to 11 so that the screen is much 

more readable: . , . 

I'll give details in the next article on how to do this. and. 
how to cope with DOSPLUS (which does not load registers jrt Bo$« 
time). Model III NEWDOS/80 64 by 16 mode, and CP/M mod* 
Meanwhile, for those who wish to join me buy yourself a Iff 
(should be less than $10). and try to. get hold of The CRT 
.Controller Handbook" by Gerry Kane. Osborne/McGraw-Hlll. 1980. 
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PROPOSAL FOR A COMMON MESSAGE BASE PROTOCOL 
by Jack Decker 

[PLEASE NOTE: This is preliminary version 0.0 of this 
proposal. At this point I am welcoming suggestions and comments 
for a final version of this protocol.] 

1. INTRODUCTION 
It seems to me that there ought to be a way to share 
message bases among separate computer Bulletin Board Systems 
that share common interests. The primary use of message base 
sharing would be in large metropolitan areas, where suburban areas 
may be able to place local calls to the central city but not to 
other suburbs, and conversely, the local calling areas of suburban 
areas may reach out to include areas that are not part of the local 
calling area of the central city. As an example, consider the 
following diagram: 
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Suppose that, in this example, the local calling area of the 
central city includes both suburbs "B" and "C", but not the more 
distant suburbs "A" and "D". The local calling area of suburb "B" 
Includes the central city and suburb "A", but not suburbs "D" and 
"E" on the far side of the city. Similarly, the local calling area of 
suburb "C" includes the central city and suburb "E", but not suburbs 
"A" and "B". It is obvious that in this situation, no one BBS will be 
able to offer service to the entire metropolitan area, at least not 
without Installing expensive call-forwarding lines in suburbs "B" and 
"D" (and perhaps other suburbs in a north-south direction). 

However, if several BBS's were capable of sharing a common 
message base, it would be possible to have full Interaction between 
all users in the area, but each BBS user would place a call to a 
BBS located in his local calling area. 

Besides all of the obvious reasons for offering this type of 
service, the offering of a common message base among several 
BBS's can actually help increase usage on all of the BBS's 
participating in the system. It seems that one reason for the high 
failure rate of BBS's is that users expect to be able to Interact 
with' a large number of other users. If a board can provide a targe 
number of new messages each time a user calls in, it tends to hold 
the Interest of the board's users. 

Note that this "sharing" of message bases is most practical 
where there are no toll charges incurred for calls between the host 
BBS systems. This is due to the large amount of data that needs 
to be transmitted. However, this type of message base sharing can 
be practical in any of the following situations: 

a) Between affiliated BBS's within a metropolitan area, as 
stated above. 

b) Between BBS's that can interconnect through a packet 
network, such as GTE Telenet's "PC Pursuit" service. 

c) Between BBS's connected by private communications 
circuits, such as BBS's within a company interconnected through 
the company's own leased circuits, or via low cost {i.e. WATS) 
telephone lines. 

d) Between BBS's interconnected via amateur (packet) radio. 

e) To a lesser extent, between BBS's interconnected via 
normal long-distance telephone lines, if a very high-speed modem is 
used. 

f) To a lesser extent, between BBS's that can utilize an 
electronic mail service or information utility for delivery of the 
message data, at a lower price than that of a regular long distance 
telephone call between the two points. 

There are probably other situations where message-base 
sharing can be useful - your comments are welcome. 

2. WHAT THIS PROTOCOL IS DESIGNED TO DO 
This protocol specifies standard batch header and message 
header formats for sending messages from one system to another. 
Any BBS that utilizes this protocol should be able to send its 
message base to any other BBS using the same protocol. 

The protocol is designed to be easy to implement and to 
transfer a minimum amount of necessary Information for message 
base sharing (while leaving room for future expansion). It is 



designed to take a batch of messages to be transferred and send 
them out in a standard format, via any available transmission 
method including electronic mail systems. 

3. WHAT THIS PROTOCOL IS NOT 

It is NOT an interactive protocol, but rather a one-way 
protocol that requires no response from the receiving BBS. This 
allows a batch of messages to be sent from one computer to 
several others at the same time, as via amateur radio or as a file 
left on an information utility. It is designed for one-way 
transmission. With proper programming, two computers could 
simultaneously transmit their message bases to each other via 
phone lines, though no error detection/correction would be possible 
in this case. 

It is NOT a file transfer protocol. However, the file created 
for transmission using this protocol can be sent using XMODEM or 
some other error correcting file transfer protocol (and this is 
RECOMMENDED where possible). 

It is NOT a text compression protocol, though it is certainly 
recommended that if transmission time is a factor, the file created 
for transmission be SQUeezed before sending and UNSQUeezed upon 
receipt at the destination system(s). 

It does NOT specify formatting of individual messages. Some 
BBS systems allow "file mail", which permits one user to send a 
binary program file or similar type of file to another user, and this 
would not be possible if constraints are placed upon line length, 
allowable characters, etc. The protocol Itself uses only ASCII 
characters in the ASCII range 32-127, but it is up to the source 
and destination systems to agree upon allowable characters within 
Individual messages. When sending a batch of messages to an 
unknown system, it Is suggested that a limitation of using only 
printable ASCII characters be employed. 

4. SYSTEM ffiENTOTCATION 
Each BBS participating in a message base interchange must be 
uniquely identified, so that the origin and destination of a message 
can be properly determined. I propose the use of an eight 
character code to uniquely identify each BBS participating in the 
system. Although users of this protocol may in fact specify any 
code they like to uniquely identify a participating BBS, it is 
suggested that the following conventions be adhered to in choosing 
the unique code to identify each BBS: 

a) For BBS's connected to dial-up telephone lines in the 
U.S.A. or Canada, the I.D. code will be: 

1+AREA CODE+FTRST 3 DIGITS OF PHONE NUMBER+1 LETTER (A-Z) 
Example: A BBS with the telephone number (705) 253-5366 would 
use the I.D. code 1705253A - note that the first (or only) BBS In a 
given area code and exchange would use the letter A as the final 
character of the I.D. Any subsequent BBS's that begin operation in 
the same telephone area code and exchange would use the suffix B, 
C, D, etc. Since this scheme permits up to 26 separate BBS's in a 
given telephone exchange to be identified, the chance of running 
out of suffix letters is extremely small. 

b) For BBS's connected to dial-up telephone lines outside of 
the U.S.A. or Canada, the I.D. code will be: 

COUNTRY CODE+CITY CODE (OMIT LEADING ZERO)+FIRST DIGITS OF 
PHONE NUMBER (to give total 7 digits)+l LETTER (A-Z) 
Example: A BBS in Sydney, Australia which gives out the number 
(02) 332-2494 (where 02 is the city code) would use the I.D. code 
6123322A, where: 
61 is the country code, 
2 is the city code, minus the leading zero 

3322 is the first digits of the phone number, to give 7 digits total, 
A is the suffix as given under "a" above. 

Note that U.S. and Canadian BBS's actually follow this scheme also, 
since "1" is the country code for these countries. 

c) For BBS's connected via amateur (packet) radio, the I.D. 
code will be the operator's call sign, truncated to eight characters 
if necessary, or padded with spaces at the right if less than eight 
characters. 

d) For BBS's that do not directly connect to telephone lines, 
but rather offer connections through an intermediary (such as a 
packet switching network), any unique, eight character code 
(preferably a mnemonic for the system name) may be used, provided 
it is not already In use. However, the code should not resemble 
the codes used by dial-up boards or amateur radio operators 
(preferably they should be all letters, no numbers). Since this 
would likely be the situation with only a very few systems, I do 
not anticipate problems in leaving this situation relatively 
undefined. 
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5. MESSAGE "PASS-THRU" CAPABILITY 
It should be noted that one of the strengths of this protocol 
Is that It Is designed to facilitate "pass-thru" of messages from one 
system to another. This means that a message or batch of 
messages may be propagated throughout a network of BBS's by 
"passing through" other systems. As an example of how this might 
work, please refer back to the diagram In (1) above. Suppose that 
a user In Suburb "A" wishes to send a message to a user located in 
Suburb "D", and let's further suppose that there are BBS's in the 
central city and in suburbs "B" and "C". One can easily see where 
It might be desirable for the sender to upload his message to the 
suburb "B" BBS, which would in turn upload It to the central city 
BBS, which would In turn upload It to the suburb "C BBS, where it 
could then be downloaded by the recipient in suburb "D". 

It Is my understanding that most BBS programs that have 
message transfer capability (e.g. FIDO and the first version of 
SYSLDfK) do not have the capability to pass messages through an 
Intermediate system, even when doing so would avoid a telephone 
toll charge as in the example above. With this protocol, individual 
messages or an entire batch of messages can be forwarded through 
as many systems as necessary. 

8. BATC H HEAD ER 
When a batch of messages are to be sent from one system to 
another, it shall be preceded by a 256 byte "batch header" which 
will give certain information that the receiving system may need, 
as follows: 

INFORMATION BYTE COUNT 

Originating BBS I.D. 8 

Destination System Password 16 

Batch Originator I.D. 8 

Batch Origination Year 2 

Month 2 

Day 2 

Hour 2 

Minute 2 

Second 2 

Private (letter "P") or Public (space character) 1 

Reserved for future definition 51 

Current destination ID (of BBS receiving this batch) 8 

Additional routing ID's 120 

Here Is an explanation of each Item, In turn: 

a) Originating BBS I.D. - The eight character I.D. of the BBS 
that originated this call. If a batch is "passed thru" more than one 
system, this I.D. will change as each new BBS replaces the batch 
I.D. with its own. 

b) Destination System Password - If desired, the receiving 
system may issue passwords of up to 16 characters to all systems 
from which It expects to receive data. The password would then 
be .Inserted here. Note that this will also change as a batch is 
"passed thru" various systems. Items a) and b) form, a unique 
combination that identify the calling BBS to the receiving system, 
and verify that the calling BBS has a right to leave messages. 

c) Batch Originator I.D. - This will be the same as a) except 
when a batch Is "passed thru" more than one system. In that case, 
this Held Is NOT changed as it passes through each BBS, thus it 
retains the IJ). of the BBS that FIRST originated the batch. 

d) Date and time fields - Two characters each for year, 
month, day, hour, minute, second. This will normally be the batch 
creation time, i.e, the time at which the unsent messages are 
collected into a batch in preparation to be sent. These do not 
change as a batch is "passed thru" systems. All times should be 
given in GMT (Greenwich Mean Time, also known as Coordinated 
Universal Time) which can then be converted to local time by the 
receiving system, if desired. 

e) Private or Public - if this field is blank (contains an ASCII 
space character) then the batch is considered public and all public 
messages therein may be added to the message base of any boards 
that the batch "passes thru". If a letter "P" is found in this field, 
the batch is private and intended for the destination BBS only, not 
any Intermediary BBS's- Although I cannot imagine why anyone 
would want to create a private batch, I have provided a field 
definition for the purpose. 

e) Reserved for future definition. Suggestions are welcome! 

f) Non-defined - This field is intentionally left open for 
individual systems to use as they please. This could contain, for 
example, a suggested filename under which to save this batch file, 



or the name of the message board that this batch of messages 
came from. Receiving systems are under no obligation to honor 
anything placed In this field, but may do so by mutual agreement 
between sending and receiving BBS's. 

g) First destination I.D. - The I.D. of the system to which this jsj|k 
batch is being sent, provided for verification purposes. FT 

h) Second through Sixteenth destination I.D.'s - If this entire 
batch is to be "passed thru" several systems, the originating BBS 
will create a routing list for the batch, starting with the first BBS 
to which the batch is to be sent (which will be placed in (g) 
above). The subsequent BBS's that are to receive the batch are 
then listed in order. After the final entry, any leftover fields 
should contain all space characters. As each BBS receives the 
batch, it will "move up" the routing list so that the First 
Destination ID. is dropped and the Second Destination I.D. becomes 
the new First Destination I.D., etc. (it will also change Items (a) 
and (b) before passing the batch along, and if the batch is public, 
it may add this batch to its own message base before passing the 
messages along). 

If the Sixteenth Destination I.D. contains eight asterisks 
("********"), this means that an additional 256 byte sector of 
routing information follows. This will allow up to 32 more routing 
I.D.'s. If that second sector also ended with eight asterisks, a 
third routing sector would follow (and so on). I cannot imagine 
routing a batch of messages through even the 16 destinations 
permitted in the first sector, but have provided the capability to 
define as many sectors of routing information as needed. 

It Is the responsibility of each receiving BBS to "look down" 
the routing list and to send the batch along to ALL BBS's that are 
within the local calling area of the BBS, It must adjust the routing 
list accordingly when doing this. For example, suppose that it 
looks down the list and finds that the Second, Seventh, and Tenth 
Destination I.D.'s are within its local calling area. It should then 
send the batch to the Second Destination I.D. (with the Third 
through Sixth Destination I.D.'s left in the routing list and all 
others removed); to the Seventh Destination I.D. (with the Eighth 
and Ninth Destination I.D.'s. left in the routing list), and to the 
Tenth Destination I.D. (with only any Destination I.D.'s after the 
Tenth remaining in the routing list). 

Once again, please note that when a message is "passed thru" 
various systems, ONLY items (a), (b), (g), and (h) of the batch 
header are modified before sending the batch along. 

It should be mentioned that there may be times when a batch 
cannot be routed properly. This would happen when a receiving 
BBS looks at the next destination I.D. and either does not recognize 
the I.D. as valid, or Is unable to complete the connection to the 
destination BBS. Those writing BBS programs to utilize this 
protocol may wish to implement the automatic sending of an 
"unable to deliver batch" type message when this occurs, that 
would go back to both the batch originator and to the system from 
which the batch was received (items (a) and (c)). However, since 
this protocol is designed to be as simple to implement as possible, 
the actual handling of such an event will be left to the individual 
BBS operators. 

Finally, note that In the batch routing procedure, there may 
be times that it will be desirable to specify that a batch is to be 
delivered to all BBS's on a list kept on file at a distant system 
(for example, a batch might be delivered to a central city BBS, 
with instructions to deliver the batch to all BBS's on a list that 
includes all of the suburban BBS's). This would be by agreement 
between systems only, but for the sake of uniformity, I suggest 
that such list names begin with a single asterisk (*) to distinguish 
them from a BBS I.D. code. 

7. INDIVIDUAL MESSAGE HEADER 
Each individual message will be preceded by a 256 byte 
"message header" which will give certain information that the 
receiving system may need, as follows: 



INFORMATION 
Originating BBS I.D. 
Originating BBS message number 
Originating User I.D. 
Message creation Year 

Month 

Day 

Hour 

Minute 

Second 
Private (letter "P") or Public (space character) 



BYTE COUNT 

8 

8 

32 



2 -- 
2 
2 
1 



20 



Message File Type (T=Text, B=Binary) 

Message Length (number of bytes, in decimal) 

Reserved for future definition 

Reply to: message number 

Addressee System I.D. 

Addressee User I.D. 

Message Subject Line 

Non-defined (for individual BBS use) 



1 

8 

10 

8 

8 

32 

64 

64 



Here is an explanation of each Item, in turn: 

a) Originating BBS I.D. - The eight character I.D. of the BBS 
that originated this message. This does not change, even if a 
batch is "passed thru" more than one system. 

b) Originating BBS Message Number - The message number of 
the message on the BBS that originated the message. This is 
required for replies. 

c) Originating User I.D. - This is the sender's name or I.D. 
number, as it is known on his home system. Required for replies. 

d) Message Creation Date and time fields - Two characters 
each for year, month, day, hour, minute, second. All times should 
be given in GMT (Greenwich Mean Time, also known as Coordinated 
Universal Time) which can (and probably should) be converted to 
local time by the receiving system, if desired. 

e) Private or Public - if this field is blank (contains an ASCII 
space character) then the message is considered public and may be 
added to the public message area of the destination BBS (and any 
BBS's that the message batch "passed thru", if the batch was 
public). If a letter "P" is found in this field, the message is 
private and should be displayed only for the designated recipient. 

f) Message File Type - an actual message will show the letter 
"T" for text. If a binary file (a program, etc.) is sent as mail, then 
this field will contain a "B" and the recipient should probably be 
offered the option of downloading the "message" using an 
error-correcting protocol such as XMODEM. This is Included for 
systems that support "File Mall" (e.g. SYSLINK). Other codes in this 
field may be supported at a later time. 

g) Message length - an ASCII number giving the actual length 
in bytes of the message to follow. The receiving system should 
expect another message header to immediately follow the message, 
except where the end of file is reached. 

h) Reserved for future definition. Suggestions are welcome! 

i) Reply to: message number - If this message is a reply to a 
previous message, then the number of the previous message will be 
shown in this field (otherwise it should contain all spaces). Note 
that this should be the message number on the Addressee's home 
BBS, which will be found in the (b) field of the original message. 

j) Addressee System I.D. - The I.D. of the system to which 
this message is to be sent. For replies to messages, this will come 
from the (a) field of the original message. 

k) Addressee User I.D. - This is the recipient's name or I.D. 
number, as it is known on his home system. 

1) Message Subject Line - The subject of the message, as 
entered by the sender. On replies to messages, the sender should 
be prompted as to whether he wants to keep the original subject or 
enter a new one (this is a major deficiency of many BBS programs, 
in that after a few back-and-forth exchanges of messages, the 
named subject often has nothing to do with the actual message 
contents! )- 

m) Non-defined - This field is intentionally left open for 
individual systems to use as they please. This could contain, for 
example, a suggested filename for binary files, or an extension of 
the message field. Receiving systems are under no obligation to 
honor anything placed in this field, but may do so by mutual 
agreement between sending and receiving BBS's. 

8. INDIVIDUAL MESSAGE FORMAT 
This is not specified due to the desire to accommodate "File 
Mail", or the transfer of binary files. The receiving BBS should be 
able to take an incoming text message and add any necessary 
carriage returns or linefeeds required for text formatting. This 
protocol will not enforce mandatory carriage returns, linefeeds, or 
text formatting of any kind. The receiving BBS should also be able 
to split an incoming message into multiple messages, if the 
originating BBS allows a longer message size than the receiving 

BBS. 

Note that nothing prevents users of this protocol from setting 
their own standards for text formatting. However, if a system 
accepts incoming batches from unknown systems, it should be 
prepared to deal with unformatted text files and binary files. 



9. END OF^MESSAQJMlfiErojJF.BATCH_FfflPJ, 
This can be indicated either- by foie end, of the batch file (as 
detected by the file transfer program used), or by a message 
header containing only 256 space (ASCII 32 decimal) characters. 
The dummy message header containing all spaces should always be 
used by the batch creator, since some file transfer utility programs 
may not give an accurate end-of-file mark. v 

10. BATCH COMBINING 
When a system receives a batch that is to be "passed thru" 
to another system, nothing in this protocol prevents it from 
combining that batch with any other batches destined for that 
system that have exactly the same routing. This is why the 
originating BBS I.D. is shown in each message header. Combining 
batches may be advantageous when transmitting . using file transfer 
methods that do not permit multiple files to be transmitted in one 
batch. 

11. SUGGESTED FORMAT FOR AUTOMA TED BATCH TRANSFER 
As previously mentioned, this protocol is designed to be 
general enough that it can be used for batch transfer via many 
different means of communication, including those that are 
inherently one-way. However, for normal computer-to-computer 
batch transfer over dial-up phone lines, the following procedure is 
suggested: 

a) Originating computer prepares batch for sending by 
selecting all "NEW" messages (all messages not previously sent to 
the destination BBS) and combining them into a file using this 
protocol. If possible (and the receiving system can handle it), the 
file should then be "SQUeezed" before sending. Presumably, the 
originating BBS would maintain a table of BBS's with which it 
exchanges message bases, which would include such data as the 
BBS phone number (which would include any carrier access codes 
necessary to reach the BBS via an alternate long distance carrier), 
the baud rate at which the BBS operates, whether the BBS accepts 
SQUeezed files, the time at which calls to this BBS should be 
placed (necessary if toll calls are involved!), and the message 
number of the last message sent to this BBS. 

b) Originating computer configures R.S-232 for proper baud 
rate, etc. and dials recipient computer. When connection is made, 
originator sends carriage return characters at rate of approximately 
one per second until an incoming data flow is sensed. Originator 
waits for data flow to stop (assumes user I.D. prompt) and 
transmits its System I.D. code (and a carriage return). It then 
waits for the data flow to again start and stop (assumes a 
password prompt) and transmits a password it has stored for. the 
system. , 

c) At this point recipient cgmputer should be able to tell that 
it is connected to another computer, so it sends an Q5H (ENQ) by^e 
to enquire as to what type of batch file is being sent. Originator 
sends one of two bytes: An 06H (ACK) to indicate that it is about , 
to send a normal batch file, or a 1FH (US) to indicate that a 
SQUeezed file is being sent (which the recipient computer will need 
to UNSQUeeze after the call is completed). If recipient computer 
receives any other code, it will send another 05H byte and wait for 
a valid response. 

d) Upon receiving the 06H or 1FH byte, the recipient computer 
transmits an 02H (STX) and goes to XMODEM (or upward-compatible 
version thereof) protocol to begin first batch file transfer. The 
first batch file is transmitted using XMODEM and saved to ...a 
filename selected by the recipient computer. 

e) Once the first batch file has been transferred successfully, 
the recipient computer send another 05H (ENQ) byte to enquire as 
to whether another batch file is to be transmitted. If originator 
has another file, it sends an 06H (ACK) or 1FH (US) to acknowledge 
that another file (normal or squeezed, respectively) is to be sent. 
Recipient then transmits an 02H (STX) and switches back to 
XMODEM to receive the next file. Note that more than one batch 
file may be transmitted in a session, to allow batches that have 
been "passed thru" from other BBS's to all be transmitted in the 
same session with the batch from the originator BBS. 

f) When originator has no more batch files to send, it 
transmits a 15H (NAK) in response to the 05H (ENQ) byte sent, by 
the recipient. It then transmits either an 04H (EOT) byte to signal 
the end of transmission (and hangs up), or, more commonly. It will 
send an 02H (STX) byte to state that it will receive any batch files 
that the recipient has for it. 

g) If the 02H byte is sent, the recipient will either respond 
with a 04H (EOT), which means it has nothing to send and wishes to 
end the transmission (and hangs up), or it responds with an 06H 
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(ACK) or 1FH (US) to acknowledge that It is about to send a file. 
The roles of originator and recipient are then reversed, the new 
recipient (former originator) sends another 02H byte when actually 
ready to begin XMODEM transfer of the file. At the end of the file 
transfer, everything proceeds as In (e) above (remember the roles 
of originator and recipient have been Reversed at this point). Of 
course, when the (new) originator has no more batch files to send, 
It MUST end the transmission by sending the 04H (EOT) byte and 
hanging up. 

NOTE: If a file is so badly garbled in transmission that 
XMODEM gives up and times out, it is probably best for the 
timed-out computer to simply drop carrier. If the lines are that 
bad, there's no guarantee that any control bytes sent would be 
received accurately. A retry of the transmission may then be 
made. 

Once the batch file(s) have been received and the connection 
is broken, the BBS should automatically switch to a utility program 
that a) UNSQUeezes the batch file, if necessary, b) adds the 
messages from the batch file to the message base on the BBS 
(except where the batch file and/or Individual messages are private 
and therefore, are not to be added), and c) determines whether the 
batch file Is to be "passed thru" to any other systems, and takes 
appropriate action if so. 

Note that messages imported from another system will 
probably not have a compatible message numbering scheme, thus 
those messages will need to carry two message numbers - the 
current number on the system, for "new message" reading purposes, 
and the original message number on the originating BBS (for reply 
purposes). 

It is highly recommended that message headers displayed to 
the BBS users display the originating BBS I.D. number and the 
originating BBS message number on all "Imported" messages. 
Display of the local BBS message number is also recommended. 
Really sophisticated BBS software will take the trouble to 
reconstruct all reply chains when a new batch of messages have 
been received. This will not be especially easy for the BBS 
programmer, but all of the necessary information to reconstruct 
message threads IS present In the message headers. 

12, DATA FORMAT FOR HEADERS 
Numeric data in batch and message headers should be 
right-justified, with leading spaces or zeroes. All other data should 
be left-Justified and padded with spaces at the right, if necessary. 
If a given data item is not available or not used, it should be filled 
with space (32 decimal) characters. 

13. CONCLUSION (AND AUTHOR'S SOAPBOX) 
I hope that, at some point in time, message base sharing 
becomes a reality for BBS users. I also hope that computer users 
will wake up to the fact that phone companies are planning on 
charging for all local calls, which means there will be no such 
thing as a "free" BBS. The public deserves access to a portion of 
the radio spectrum that is specifically earmarked for 
computer-to-computer transmissions, and that is NOT controlled by 
either commercial interests (such as the telephone companies) or by 
the amateur radio fraternity (the powers that be in amateur radio 
seem to feel that THEY had to learn the antiquated Morse code, so 
the rest of us should be made to suffer in a similar fashion. No, 
thanks). Donald L. Stoner, W6TNS has filed a proposal with the 
FCC for the creation of a "Public Digital Radio Service" (the 
number given to this proposal by the FCC is RM-5241). I suggest 
that those interested in computer-to-computer communications take 
the time to learn about and support this proposal (Don Stoner's 
address is 6014 East Mercer Way, Mercer Island, Washington 98040). 
A report on this proposal was printed in NORTHERN BYTES Volume 
7, Number 1. 

PRINTER HEAD CLEANING 

by Eddie Reddish 
12 Pooley Street, Pakuranga, Auckland, New Zealand 

My printer was starting to display the lack of attention that I 
was giving to it. I had always Just left it to itself and only 
occasionally dusted it. I noticed that when I started it from 'cold' 
that the first character printed was never clear. Most times only 
some of the pins would 'fire'. This was getting to be rather 
frustrating as it was spoiling the printouts and usually meant that I 
would have to print another copy. 

I thought that what was happening was that the ink from the 
ribbon was causing the pins to stick inside the prlnthead. In my 



printer, Star Gemini 10X, there are 9 pins arranged vertically. 
These pins are very close together. All other dot matrix printers 
have a similar arrangement. The problem was: Bow do you clean 
the print head? 

All print heads that I have seen are held to the head carriage 
by two screws. The print head has a flexible lead connecting it to 
the printer's circuit board. 

ME THOD OF CLEANING: 
1. Write a small program as follows: 



10 LPRINTTAB(0)CHR$(73)CHR$(106) 
capital "I" and small "J". 
20 GOTO 10 



'Exercise all pins - prints 



2. With the printer power OFF, move the print head about one 
quarter of its length of travel from the left hand side. This will 
enable you ready access to the two screws holding the print head 
to its carriage. Undo and remove the two screws. Carefully lift 
the print head away from its carriage, but leave the connecting 
cable plugged Into its position in the printer's circuit board. You 
will find as you look at the face of the print bead that a 
considerable amount of 'gunge' will have attached Itself to the 
print face. Using a lint free cloth soaked In ISOPROPYL ALCOHOL 
wipe the face of the print head. 

3. Having done the easy bit the problem remains of how to 
clean the inner part of the print head. A method of working the 
alcohol into the print head and flushing out the 'gunge' is as 
follows: 

(a) In the bottom of a shallow plastic lid place 3 or 4 folds 
of paper. Cover this paper with ISOPROPYL ALCOHOL to a depth 
of, say, 2 to 3 mm. [approximately 1/8"]. 

(b) Place the print head 'nose down' into the plastic lid, 
holding it just clear of the bottom (a small stand is recommended - 
the head should not be resting on the bottom because the pins 
have to have room to emerge from the head). The paper serves as 
a last resort safety buffer. 

(c) Turn the printer ON. 

(d) RUN the above program. The pins should fire continuously 
and in doing so will draw the alcohol up Into the print head and 
wash out the jewel block. 

(e) BREAK the program. 

(f) Turn the printer power OFF. Dry the print head with a lint 
free cloth and reflx the print head to its carriage with the two 
screws. 

[Editor's note - If you find that some pins are still a bit 
sticky, you may wish to apply a very small amount of lubricant to 
the pins. WD-40 will work, but some do not recommend its use 
because they say it contains some ingredients that are really 
intended for use on heavy machinery, not small devices such as a 
print head. Silicone sprays are NOT recommended, they tend to 
gum up. Many electronic supply stores carry lubricants that are 
specifically designed for use on small electronic-mechanical parts 
(such as volume controls, switches, etc.) and these may be the 
safest, IF they do not contain components that harm plastics. Keep 
In mind that most printer ribbons contain lubricants (unless they 
are an off-brand, or were re-inked using stamp pad ink or some 
other ink that contains no lubrication), so unless you really need 
the extra lubrication, don't apply anything!] 

I MPO RTA NT 

1. To avoid damaging the connecting cable, it is Important 
that the head carriage doesn't move very far from the extreme left 
hand side. That is the reason for the TAB(0) in LINE 10. 

2. Other makes of printers may require the use of different 
CHR$ codes to exercise their pins. Check your printer manual for 
suitable codes and amend the program if necessary. 

3. It is STRON GLY RECO M MEND ED that you test RUN this 
program, to insure that the head carriage doesn't move further to 
the right than the TAB(l) position whilst the program Is running, 
before unscrewing the print head screws. 

DISC LAIMER 

Neither the author nor this publication accepts liability for 
any damage resulting to any computer equipment or printer caused 
by persons following the Instructions in this article, as it is 
presented for information purposes only. If you don't know what 
you're doing, we recommend that you leave the servicing of your 
printer to competent personal. 
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SHOVELS TO TEASPOONS 

by Laurie Bisman 

[This article is reprinted from CHRISTCHURCH-89, newsletter 
of the Christchurch-M Users' Group, P.O. Box 4118, Christcburch, 
New Zealand.] 

I have always been frustrated by the way NEWBOS/80 copies 
files. The method it uses could easily be modified to eliminate 
problems such as unwanted directory entries should a copy 
backfire. I often have a need to copy programs and data from 
disks which hold a lot of information down to disks which are a lot 
smaller capacity-wise. This causes another problem of course, that 
of knowing just how many files from disk "A" will actually fit onto 
disk "B". Although not a complete solution, this program goes part 
of the way to solving the problems. 

I suggest that you eliminate the REMs when you type it in. 
It is quite small without them. I also suggest that ACCEL3 or 
ABASIC should be used to speed things up. 

As files are created on disk zero, ensure that you have five 
or six grans free and that the disk isn't write protected. 

[NORTHERN BYTES editor's note: Many of the lines in the 
program below contain linefeeds, which force the remainder of a 
BASIC line to begin on a new line in the printout. Thus, where you 
see a line that does not begin with a BASIC line number, you 
should assume it to be a continuation of the previous line. When 
entering this program into your computer, the linefeeds can be 
entered by using the down-arrow key.] 
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* COPY FROM LARGE TO SMALL DISKS WITH 

* /ILF FILES AND /JCL FILES * 
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This program will allow easy copying from disks which have 

large capacity to disks which have a smaller capacity. 

For example: You may have some programs stored on a double 

sided 80 track disk and you want to transfer all to single 

sided 40 track disks. Problem!! How many programs will fit 

onto the 40 track disk? 

This program scans the source disks directory, compiling a 

series of /ILF files and finally producing a /JCL file for 

use in copying. Once this has been done, the /JCL file is 

executed immediately. You will be prompted to change disks 

as required. 



Program commences.. 



':P=32:Pl=l:P2-2 



CLEAR some string-space and dimension arrays to hold the 
program names and the gran sizes. Set up various other 
100 'variables as counters, pointers and constant values used 
in the directory-scanning section. 

He •======_™.==========..™,===========================-™" 

120 CLEAR5000:DEFINTA-Z:DIMPR$(256),PR(256):C-1:A$= 

55:TG=0:CLS 

130 INPUT"SOURCE DISK NUMBER ";SD$ 

140 INPUT'TARGET DISK NUMBER ";TD$ 

150 INPUT'FORMAT TARGET DISK (Y/N) ";FMT$ 

160 D=INSTR("YyNn",FMT$):IFD=0THEN150 

170 IFD<3 THEN FMT$="FMT"ELSE FMT$^"NFMT" 

180 INPUT"How many grans on target disk "; GT 

190 ' 



200 'Build correct DIRECTORY name and prepare to look at file. 
An error will be generated immediately, but is trapped to 
allow program to continue. 

210 ' t- 

220 FI$="DIR/SYS:"+SD$ 

230 ONERRORGOTO950 '* TRAP ERROR CAUSED BY LOOKING AT 

"DIR" * 

240 OPEN"D",l,FI$ ' ** GO GET FILE ** 

250 FIELD1,96ASGRANS$,112ASDUMMY$,16ASND$ 

' ** PREPARE TO GET NUMBER OF GRANS ** 



260 FIELD1,32ASA$(1).32ASA$(2),32ASA$(3),32ASA$(4),32ASA$(5),32ASA$( 
6),32ASA$(7),32ASA$(8) ' , *'" 

' ** PREPARE TO GET EACH FILESPEte ** "; "" 

270 CLS:PRINT#0,"READBJG DIRECTOR SECTOR" ' 5 

280 FORL=3T0LOF(1):BETI;* ' : . . P? 

** IiOOK AT DIR SECTORS AFTER "GAT" AND "fit" "** 
290 PRINT#25,LOF(l)-L 
300 ' ..■-,.■■'■■•■'■.■; --••' ■- 

310 ' : ~--~™ '■"■ 

320 ' Build file names and store them In the array PR$(n). 

Calculation of gran sizes is performed (subroutine), 

and gran sizes are stored in array PR(n). 



330 
340 
350 



360 
370 
380 
390 
400 
410 



420 



F0RI=1T08 

IFASC(LEFT$(A$(I),1))O16THEN440 ' 
** IGNORE KILLED, INVISIBLE OR SYSTEM FILES ** 

T1$=MID$<A$(I),6,8):T2$=MID$(A$(I),14,3) 

IF T2$=" "THEN390 

IFRIGHT$(T2$,1)=" "THENT2$=LEFT$(T2$,LEN(T2$H):GOTO380 

IFRIGHT$(T1$,1)=" THENTl$=iLEFT$(Tl$,LEN(Tl$) l):GOTt)390 

IF T2$-" "THEN420 

T1$=T1$+'V"+T2$ ' 

** PUT TOGETHER IN CONVENTIONAL FORM ** 

. M=0: GOSUB 830 ' 

** GET NUMBER OF GRANS FOR FILESPEC ** 



430 PR$(C) =T1$:PR(C)=M:C-C+1 

440 NEXTI 
450 NEXTL 
460 CLOSE 
470 ' 

480 ' -;- — : — J . 

490 ' Set pointer variable (PTR) to 65. ASCII 65 is capital A. 

Create and open an appropriate /ILF file (TEMP + a letter 

of the alphabet + extension /ILF). 
500 ' Write program names into new /ILF file counting the gran 

sizes, when sufficient programs have been written to file 

that file is closed, another is created and the whole lot 
510 ' is done again until all programs are accounted for. 

520 ' ■ '--- 

530 PTR=65 

540 GOSUB 1010 

550 FOR I=1T0C-1:PRINT #1,PR$(I):TG=TG+PR(I) 

560 IFTG+PR(I+1)>GT THEN CLOSE:PTR=PTR+1:GOSUB1010:TG=0 

570 NEXTLCLOSE 

580 ' 

590 ' — ~ : ' 

600 ' Now the /JCL file is created and built according to how 

many /ILF files were created. Each /ILF file is used in 

copying one 'SET' of programs to one disk. 
610 ' Once a disk is full, a prompt is issued to change disks 

and the next copy is done. 
620 ' After this process has finished, it may be repeated by 

simply typing 'DO COPY'. However, all temporary files 

may be deleted by typing 'DO TIDY'. 

630 ' — —; ', 

640 OPEN"O",1,"COPY/JCL:0" ' 

650 OPEN"O",2,"T1DY/JCL:0" 

660 FORI=65 TO PTR 

670 PRINT#l,"COPY "+SD$+" to "+TD$+"„"+FMT$+ " CBF NDMW ILP^ 

EMP"+CHR$(I)+"/ILF" 

680 PRINT#2,"KILL TEMP"+CHR$(l)+"/ILF" 

690 IFKPTR THEN PRINT#1,CHR$(129);"CHANGE DESTINATION DISK" 

700 NEXT 

710 PRINT#1,CHR$(131);" 

To tidy up (DELETE) /ILF & /JCL files, 
type 'DO TIDY' <ENTER>" 

720 PRINT#2,"KILL C0PY/JCL":PRINT#2."KILL TIDY/JCL":CLOSE 
730 ' 

740 • ""-. :■ 

750 ' The completed job is now performed. 

760 • — 

770 CMD"S=DO COPY" 
780 ' 

790 ' 

800 ' This is the subroutine which calculates the number of 
grans each file uses on disk. 
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810 ' On EXIT the gran size for the current file is left in 

the variable 'M' 
820 ' — 

830 FORN=23 TO 32 ' ** LOAD "EXTENT" TABLE INTO ARRAY ** 

840 TEMP(N-22)*ASC(MlD$(A$(l) i N.l)) 

850 NEXTN 

860 FORN=2 TO 10 STEP 2 ' ** TALLY NUMBER OF GRANS ** 

870 IF TEMP(N)=P2 AND TEMP(N-1)=P2 THEN 890 

880 M=M+TEMP(W-(FIX(TEMP(N)/P)*P)+P1 

890 NEXTN 

900 RETURN 

910 ' 

920 '- ' 



930 



This is the error trap line, any error barring a corrupt 
directory GAT sector will be ignored. An error is caused 
by reading a sector as these sectors are READ PROTECTED 



940 '—— —- — 

950 IFERR=106THENRESUME960ELSERESUMENEXT 

960 PRINT864,"This disc has a corrupted ";CHR$(34);"HIT";CHR$(34);" 

sector. 

(2nd byte should be C4)." 

970 ' 

98 •___ 1 

990 ' This subroutine creates and opens successive /ILF files. 

1000 ' 

1010 OPEN"O",l,"TEMP"+CHR$(PTR)+"/ILF:0" 
1020 RETURN 

THAT $"#%&" RADIO SHACK PRINTER ROUTINE 
by Jay D. Mann 

[This article is reprinted from CHRISTCHURCH-80, newsletter 
of the Christchurch-80 Users' Group, P.O. Box 4118, Christchurch, 
New Zealand.] 

Not long ago I wrote about my infuriating experience with an 
Okidata printer, in which the real trouble turned out to be the 
arrogant assumption by the authors of the TRS-80/SYSTEM-80 ROM 
that when I wrote "LPRINT CHR$(11)" that I didn't know what I was 
talking about, and really wanted a string of line feeds! 

Since then, twp further annoying tricks have shown up. The 
first was a bug in an otherwise very elegant program 
"DOCLIST/BAS" in the book "Basic Faster and Better" by L. 
Rosenfelder. This program, which Laurie Bisman referred me to, 
turns a scrunched BASIC program into an elegant indented listing. 
But when I ran it, it produced a good first page, then four or five 
pages with one line per page, then a full page, and so forth. The 
trap was in line 3240. Rosenfelder PEEKS location 16425, where the 
TRS-80 ROM authors generously provided a line counter for the 
printer. If he finds more than 50 lines so far, then he LPRINTs 
CHR$(12), a form-feed. Of course the ROM can't leave that alone; 
it converts CHR$(12) into a bunch of line feeds. OK, so that works 
with an unintelligent printer. But then the stupid ROM does not 
reset the counter at 16425 to zero!!!! So the next program loop, 
another form-feed is Issued. There is some value of 16425 where it 
will indeed be reset, but only after the profits of N. Z. Forest 
Products have been incremented considerably. 

So, if you want to use the excellent DOCLIST program, change 
line 3240 to read as follows: 

3240 IF INSTR(OP$,"P")=0 THEN LPRINT " ": IF PEEK(16425) >50 THEN 
LPRINT CHRS(12);: POKE(16425,0): IF INSTR(OP$,"S") THEN GOSUB 
3000: GOSUB 3100 ELSE GOSUB 3100 

The only difference is that I've installed a POKE to reset the 
line counter... doing what Radio Shack should have done. 

Another problem came up while trying to produce Dragon 
Curve plots on my printer. The method involved producing a giant 
bit-mapped image on a disk file, then LPRINTing these files on 
paper. Naturally a lot of bytes were empty, and I ran into the old 
Radio Shack probjem of not outputting CHR$(0). 

So I tried Alan Johnstone's printer driver, which he claims will 
put out all bytes. Sorry, Alan, not so! The first part of his driver 
checks register A for being zero, and jumps back to the TRS-80 
ROM if so. And the blasted ROM will not LPRINT a zero. 

I needed a way to print CHR$(0)! The first method was . to 
Zap Alan Johnstone's DOS. Use Superzap, modifying SYSO/SYS, file 
relative Sector 23. Put a few zeroes in as follows: 



[NORTHERN BYTES editor's note: The "5A" in square brackets is 
there because that is the location to zap in the version of Alan 
Johnstone's DOS that appears on TAS Public Domain Library disk 
#ND-1. The "30" was the starting byte to zap given in the original 
article, and probably refers to an earlier version of Alan's DOS.] 
This wipes out the CHR$(0) test in Alan's DOS. Remember, it only 
happens the next time you Boot, and check It on a spare copy of 
the disk! 

That won't help people who don't use that DOS. So here Is a 
tiny, stupid, unassuming Assembly program that provides a printer 
driver that will print anything you want It to! Change the Origin 
to any convenient location. Invoke it from DOS level before you 
enter BASIC. 

(the assembly program follows this article -Ed) 

Why did Radio Shack write such a stupid printer handler? I 
think it was a mixture of an attempt to compensate for then 
current Radio Shack printers, plus a mixture of half-baked 
incompleted attempts to emulate bigger computers. The Radio 
Shack printers put in automatic line feeds after carriage returns, 
so the TRS-80 chops out line feeds! The printers didn't know how 
to handle a form-feed, so the TRS-80 did it. But why did the ROM 
writers dump out CHR$(0)? In the days of the mechanical 
teleprinters like the ASR-33, the printer was out of action while 
the head was leisurely returning to the left margin after a CR. It 
was common to have a system variable called CRFILL that would 
produce a string of CHR$(0) after a carriage return, just to give 
the printer time to recover. So the Radio Shack authors decided 
to intercept the CHR$(0) at the ROM level instead of leaving it to 
the printer to ignore them or not. Not only that, they didn't follow 
through by installing anything like a CRFILL option, so there isn't 
any way within the ROM to put out a bunch of nulls. 

We all know about the straightout bug in the Model I printer 
driver, where 67 lines instead of 66 lines are printed per page. 
What I cannot understand is how the geniuses in Texas continued 
to produce ROM revisions that retained all of the bugs of the first 
version. 



[old:] 


30 [5A] 


B7 CA Dl 05 18 25 


[new: ] 


30 [5A] 


B7 00 00 00 18 25 





00100 i 


SIMPLE-MINDED PRINTER DRIVER 






00U0 1 


BY JAY MANN 


25/8/BS 






001Z0 ! 


KEEPS ITS STUPID FINGERS OUT OF THE PIE! 




00130 ; 


AND TRANSMITS ALL REPEAT ALL COOES TO PRINTER 




00140 ; 


WITHOUT CHANGING ANY OF THET 


! 




00190 








F«e 


00140 


ORG 


0F000H 




FMf Z115F0 


00170 START ID 


HL.LPTEST-l 


PROTECT MEMORY 


FW3 224740 


00160 


LD 


(4049H)iHL 


HIMEM 


F006 22B140 


00170 


LO 


(40B1H).HL 


BASIC HIMEM PTR 


F007 UCEFF 


VV&tftf 


LD 


DE.-50 


CLEAR STRING AREA 


F00C1? 


00Z10 


ADD 


HLiDE 




FMD Z2A040 


00ZZ0 


LD 


(40A0H)>HL 


CLEAR 50 TO BEGIN WITH 


F010 ZU4F0 


00ZZZ 


LO 


HL. LPTEST 


CHANGE FOR SYSTEM-60 


F013 222440 


00ZZ4 
00Z30 


LD 


(4024HI.HL 


INSTALL NEU HANDLER 


F014 3AEB37 


00240 LPTEST LO 


A>(37EBH) 




F01? E4C0 


00250 


AND 


0C0H 


i MASK ALL BUT BUSYIPAPER 


F01B 2606 


00Z40 


JR 


ZiSO 




F01D 3M038 


00270 


LD 


A.I3B40H) 




F020 CB4F 


00260 


BIT 


1>A 


i CHECK FOR <CLEAR> 


F022 C0 l 


00Z70 


RET 


NZ 


; EMERGENCY BAILOUT 


F0Z3 1806 


00300 


JR 


START 




F0Z5 79 


00310 GO LD 


A>C 




F0Z4 32EB37 


003Z0 


LD 


(37E8H),A 


; OUTPUT TO PRINTER 


F0Z7C? 


00330 
00340 


RET 






F0ZA DBFD 


003S0 START1 IN 


A>(0FDH) 


i FOR SYSTEM-60 


F0ZC E4C0 


00340 


AND 


0C0H 




F02E 280? 


00370 


JR 


Z>G01 


; OK. NOT BUSY 


F030 3A403B 


flUCUUl 


LD 


A.(3B40H> 


; CHECK KEYBOARD 


F033 CB4F 


00370 


BIT 


l.A 


i EXIT IF <CLEAR> 


F035 2005 


00400 


JR 


NZiEXIT 




F037 1BF1 


00410 


JR 


START1 




F037 77 


004Z0 G01 LD 


A>C 


; GET CHARACTER 


F03A D3FD 


00430 


OUT 


(0FDH1.A 


i PRINT IT 


F03C C9 


00440 EXIT RET 






F000 


00450 


END 


START 




00000 TOTAL ERRORS 








EXIT F03C 


CO 


F0Z5 G01 F037 LPTEST F014 START F000 


START1 F02A 
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MULTT DISK FORMATTING UTOITtf 

for Models I, III, 4 (in Model III mode) and L09S 
by Ian H. Robertson 

[Reprinted fro* the Adelaide Micro-User Hews, 36 Sturt 
Street, Adelaide, South AUSTRALIA 5000.] 

The other day I decided it was time to clean up ay disks, 
get rid of all the rubbish one inevitably collects, and utilise 
some of the wasted space. After very little effort I discovered I 
had at least 15 spare disks which I set about formatting there 
and then. 

Before going any further with the story, I should add that I 
recently added two 80 track double sided drives to My system. 
One of the new drives is used as ;0 and holds all my utilities, 
wordprocessors and so on. The other is used as :1 while one of 
My 40 track drives is configured as :2. I haven't yet decided 
what I'll do with the other 40 tracker. 

Having formatted two disks I got to wondering why on earth 
there isn't a really simple way of repeating the formatting 
process (ala MS/PC-DOS), or of changing the parameters to cater 
for differing densities, tracks, sides, etc. 

So I decided to fix the problem. The accompanying BASIC 
program Is the result. Now, now, all you SU+ owners!! I know you 
can use SU to achieve the same result, but in doing so it is 
necessary to reboot the system afterwards. I wanted a utility 
that was specific for the job and allowed a normal return to DOS 
upon completion. This utility fits the bill nicely - for ay 
purposes anyway. 

Of course it is possible to configure KSM to carry out the 
same task but that means you suffer the additional overhead of 
more memory. I already have a significant number of drivers in 
high memory, as well as a comprehensive number of keys 
configured for KSM, so I elected to go another way. 

This program will be available in the [Adelaide] Club's 
Public Domain set so if you don't want to type in the 
accompanying listing, arrange to obtain a copy from the Librarian 
or Secretary. [Now that it has appeared in NORTHERN BYTES, it 
will probably show up on a TAS Public Domain Library disk 
someday, -editor] 

HOW IT WORKS 

The Multiple Disk Formatting Utility is specifically 
designed to be used in a multi-drive, multi-parameter 
environment. It cannot be used In its current format by single 
drive owners. 

It is also designed specifically for LDOS owners, although I 
see little reason for it not to be suitable for owners of other 
DOS's, provided DOS commands can be called from BASIC and that 
the correct parameters are passed to the FORMAT/CMD program. 

I doubt that it can be used with TRSDOS 2.3. 

The program is quite simple and I've tried to lay it out so 
it's easy to follow. I have not used any special tricks to 
achieve the end result, nor have I put special effort into the 
structure. If you ( feel that it can/should be improved, please 
feel free to do so. 

The first line CLEARS some string space and sets up the 
error trapping routine. This routine is required because errors 
encountered during format, which cause FORMAT to abort, return a 
"System Command Aborted" message which causes BASIC to stop 
running at the current line number. 

This error message may occur because the format process 
was unsuccessful (too many errors), or the disk was write 
protected, or you decided to abort the process with the <BREAK> 
key etc. etc. 

The last line - RESUME #### forces BASIC to CONTinue. 

The next line branches to the routine to set up the Intro, 
screen and the default parameters. You may want to change these 
parameters to suit your own system, particularly if you are not 
using 80 track drives. 

You are then given a menu which displays the current 
(default) settings. If they are OK the program branches to the 
formatting routine. If they are not OK the branch is to a CHANGE 
menu which gives the option of changing any, or all of the 
specified parameters. 

The CHANGE menu is designed to "flip" between two settings 
for each option. 

If you select option 1, Drive No., which is currently set at 
"1", it will flip to Drive No. "2". 



If you select option 2, Density, which is currently set at 
"Dden", it will flip to "Sden". 

If you select option 3, Sides, which is currently set at "2", 
it will flip to "1". 

If you select option 4, Cylinders, which is currently set at 
"4W% it will flip to "40", 

When you have configured the parameters to suit, press 
«ENTER> and you'll be taken into the FORMAT routine. 

The FORMAT routine commences by asking you to insert your 
disjs into the currently selected drive to commence formatting, or 
select option "1" or "2" to return to the DEFAULT or CHANGE 
menus if you're not satisfied with the current settings and want 
to start again. 

If you are happy, it goes away and formats your disk. 

Upon return from FORMAT, you are then given the option of 
formatting another disk or returning to DOS. 

If you wish to foraat another disk you have the option of 
returning to the DEFAULT menu or the CHANGE menu. 

If you select the DEFAULT menu the program resets the 
variables DR$. DE$, SI$ and CY$ by branching to the necessary 
routine near the end of the program and then displaying the 
DEFAULT menu. 

If you select the CHANGE menu, the program branches to a 
routine which strips out the previously added "extras" in the 
FORMAT routine and then displays the CHANGE menu with the 
previously selected parameters, exactly as you had specified. 

NOTES 
If you have a mix of drives with track numbers (say 40, 77 
ft 80) not catered for in the "flip" routine to change number of 
tracks, you may wish to replace this particular area with 
something like:- 

#### REM — -== CHANGE NUMBER OF CYLINDERS (TRACKS) ===== 

#### REM 

#### CLS N 

#### PRINT "Current number of. Cylinders = "CY$ 

#### PRINT 

#### LINEINPUT'Please key in new number of Cylinders"CY$ 

#### IF CY$ < "35" OR CY$ > "80" PRINT: PRINT "Number of 

Cylinders out of range (35 to 80)!!:GOTO #### 
(The G0T0#### in the last line would branch to the "PRINT" 
statement following the line 'PRINT'Current number of Cylinders 
="CY$') 

*### GOTO #### (the start of the CHANGE menu routine.) 



So there you have it. Have some fun!!! 

100 CLEAR 1000:0N ERROR GOTO 1440 

liO REM 

120 REM ===== SET DEFAULTS AND GET TITLE PAGE 

130 REM 

140 GOSUB 1210 

150 REM 

160 REM ===== SET UP DEFAULT SCREEN ===== 

170 REM 

180 CLS 

190 PRINTi 20, "MULTIPLE DISK FORMAT UTILITY" 

200 PRINT* 84,STRING$(88,131) 

210 PRINT 

220 PRINT'Default settings are: 

230 PRINT" 



240 PRINT" 

250 PRINT" 

260 PRINT 

270 PRINT 

280 PRINT'Is this Okay? 

290 GOSUB 340 

300 IF A$ = "Y" OR A$ = "y" THEN 370 

310 IF A$ = "N" OR AS = "n" THEN 790 

320 PRINT:PRINT "Must be <Y> or <N> !! 

330 GOTO 290 

340 A$---"":A$=INKEY$:IF A$ - "" THEN 340 

350 RETURN 

360 REM 

370 REM -.-.^==^: FORMAT ROUTINE =™,- 

380 REM 

390 DE$-=I)E$+"DEN" 

400 SI$="SIDES = "+SI$ 

410 CY$--"CYL "+CY$ 



Drive 
Density 
Sides 
Cylinders 



= "DR$ 
= "DE$* 
= "SIS 
= "CY$ 



den" 



<Y>es or <N>o" 
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,420 CLS _ „ . 

430 PRINW192,"Insert your disk In Drive :";DRS; and press 

f <ENTER> to continue" 

.440 PRINTS320," ~ 0R "" „ 

450 PRINT«448,"To return to MAIN (Default) Menu - Key...<l> 
460 PRINT«576," " 0R ~" 

U70 PRINTt704,"To return to CHANGE Menu - Key <2> 

480 GOSUB 340 

490 IF A$=CHR$(13) GOTO 530 
500 IF A$="l" GOSUB 1370:GOTO 180 
: 510 IF AS="2" GOSOB 740 :G0T0 790 
520 GOTO 480 
530 FS="F0RMAT :"+DRS+" ("+DE$+","+SI$+","+CY$+",Q=N) 

540 CMD F$ 

550 PRINT 

560 PRINT"Fori«at another disk? <Y>es or <N>o" 

570 GOSUB 340 

580 IF AS - "Y" OR A$ = "y" THEN GOSUB 720:G0T0 610 

590 IF A$ = "N" OR A$ = "n":PRINT:PRINT"Returning to DOS":FOR X= 

TO 1000:NEXT:CLS:CMD "S 

600 GOTO 570 

610 REM 

620 REM ===== RETURN TO DEFAULT OR CHANGE MENU ===-- 

630 REM 
635 CLS 
640 PRINT:PRINT"To return to MAIN (Default) menu - Key... <1> 

650 PRINT:PRINT" , " 0R " 

660 PRINT;PRINT"To return to CHANGE menu - Key <2> 

670 GOSUB 340 

680 IF A$="l" GOSUB 1370:GOTO 180 

690 IF A$="2" GOTO 790 

700 GOTO 670 

710 REM 

720 REM ===== RESTORE VARIABLES ===== 

730 REM 

740 DE$=LEFT$(DE$,1) 

750 SIS=MID$(SI*,7,1) 

760 CYS=MID$(CY$.5.2) 

770 RETURN 

780 REM 

790 REM -==== CHANGE DEFAULT SETTINGS ===== 

800 REM 
810 CLS 
820 PRINTTAB(13)"Which settings do you wish to change? 

830 PRINT 

840 PRINTTAB(13)"Para«ieter 

850 PRINTTAB(13) STRING$(37,131) 

860 PRINT 

870 PRINTTAB(13)"<1> Drive No. 

880 PRINTTAB(13)"<2> Density 

890 PRINTTAB(13)"<3> Sides 

900 PRINTTAB(13)"<4> Cylinders 

910 PRINT 

920 PRINTTAB(13)"Key in the number of your choice 

930 PRINT 

940 PRINTTAB(13)"Press <ENTER> when finished 

950 GOSUB 340 

960 IF A$=CHR$(13) THEN 370 

970 A=VAL(A$) 

980 IF A <1 OR A >4 THEN 950 

990 ON A GOTO 1010,1060,1110,1160 

1000 REM 

1010 REM =====CHANGE SETTING OF DRIVE NUMBER "=- 

1020 REM 

1030 IF DRS="1" THEN DRS="2":G0T0 790 
="2" THEN DR$="l":G0TO 790 



Current Setting" 



"DR$ 

"DE$+"den" 
"SIS 
"CYS 



CHANGE DENSITY ===== 



1040 IF DRS 

1050 REM 

1060 REM == 

1070 REM 

1080 IF DE$ "S" THEN DE$="D":G0T0 790 

1090 IF DE$="D" THEN DE$="S":G0T0 790 

1100 REM 

1110 REM ===== CHANGE NUMBER OF SIDES ===== 

1120 REM 

1130 IF SIS' "1" THEN SI$="2":G0T0 790 

1140 IF SI$="2" THEN SIS="1":G0T0 790 

1150 REM 

1160 REM =-=== CHANGE NUMBER OF CYLINDERS (TRACKS) 

1170 REM 

1180 IF CYS-"80" THEN CY$="40":G0T0 790 



1190 IF CY$="40" THEN CY*="80":G0T0 790 

1200 REM 

1210 REM ===== SET UP TITUS SOTBBR *-— 

1220 CLS 

1230 PRINT STRINGS(64,17») 

1240 PRfflTt274,"MultiHe Disk ForMrt UtiUty" 

1250 PRiNTt338,STRIIiG$t2e,131) 

1260 PRINT#406,"(C) W »• RobfrtaOB" 

(Can you copyright it and put It in the puttie do-ialn, Ian? BdGJ 

1270 PRINTt473,"23 Hillary Crs" 

1280 PRWT«535,"Modbury North 5092" 

1290 PRINTM03,"Australia" 

1300 PRIHT«665,"Phone 2630653" 

1310 PRim*729,"10th June 1985" 

1320 PRINT«896, STRING*(64,179); 

1330 FOR X=15360 TO 16319 STEP 64: POKE X.191: NEXT 

1340 FOR X=15423 TO 16319 STEP 64: POKE X.191: NEXT 

1350 FOR X=0 TO 2000:NEXT 

1360 REM 

1370 REM ===== SET UP DEFAULTS ===== 

1380 REM 

1390 DR$="1":RBM SET DEFAULT DRIVE NUMBER 

1400 DE$="D":REM SET DEFAULT DENSITY 

1410 S1$«'T':REM SET DEFAULT NUMBER OF SIDES 

1420 CY$="40":REM SET DEFAULT NUMBER OF CYLINDERS (TRACKS) 

1430 RETURN 

1440 RESUME 550 



TRSDOS 6.2 PASSWORD CHECKING 
by Mike Zarowitz 

Many schemes to by-pass TRSDOS 6.2 password checking have 
evolved since the operating system was released. However, all of 
these methods require disk zapping directory records to either set 
the password to 8 blank spaces or to inform DOS that a password 
is not required. It would be nice if there was a NEWDOS-like 
command that simply turned password checking on or off. Quite by 
serendipity, I have found this switch in TRSDOS, and It can easily 
be set and reset from BASIC without disk zapping. To turn off 
password checking, issue: 

POKE &H77,(PEEK(&H77) OR 128). 

To turn it back on: 

POKE &H77,(PEEK(&H77) AND 127). 

The permanent patch is: 

.patch to turn off password checking 
.apply to SYS0/SYS.LSIDOS 
D00,83=80 
F00,83=00 

For the machine language programmer, these actions set and 
reset bit 7 of NFLAGS, the so-called "networking" flag. I don t 
have any TRSDOS backup-limited programs, but this raises an 
interesting possibility. The TRSDOS source code describes NFLAGS 
bit 1-5 and our bit 7 as "reserved", yet bit 7 is actually used to 
control password checking. It is possible that some of bits 1-5 
control the number of backups of certain disks. This should be 
easy to test as the standard value of NFLAGS is 00 hex. If you 
have a backup-limited disk, check byte 00,83 of SYSO/SYS.LSIDOS to 
see if it is other than zero. If so, zap it to 00 hex and see if it 
now allows more backups. '-. * a 

For those who must guard against turning off of password 
checking with their system, either of the following patches to 
SYS2/SYS.LSIDOS will ignore the status of NFLAGS: 

.either patch ignores status of NFLAGS 
.apply to SYS2/SYS.LSID0S 

.patch #1: convert JR Z to JR 

D02, 27=18 

F02,27=28 

.end of patch #1 

!patch #2: NOP out adjustment of filename password value 

D02,2D=00,00 

F02,2D=54,5D 

.end of patch #2 
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PLUS : HON TO INSTALL A DRIVE SELECT SWITCH ON 

By Peter Goed 

22 Shields Street, Redcliffe, Queensland 4020, Australia 

Telephone: 011+61+7+203 4882 

(Adapted froa an original idea by Tony Doalgan published in 
NORTHERN BYTES, and help froa Glen McDiaraid). 

1. CREATE A 40-TRACK SINGLE SIDED BOOTING SYSTEM DISK 
The Methods previously published in Northern Bytes seem to 
assume quite a lot of knowledge on the reader's part, including 
that SuperUtllity + is available to the reader (not necessarily 
sol). However, this aethod uses NEWDOS/80's own utility, 
SUPERZAP, which coaes with NEWDOS/80 qnd is very adequate 
(indeed, aore suitable) for the job and I propose to lead the 
reader step by step through the creation process — on the 
assuaptlon that he/she aay not know very auch about disk 
zapping. You Bust take great care to follow the steps EXACTLY 
as set out. 

To create a 40-Track NEWDOS disk with corrected clock 
speed on the 4P using a Model III version of NEWDOS/80 and the 
MODELA/III file that coaes on the TRSDOS 6.x system disk and the 
MODELA/III disk that coaes with the 4P:- 

1. Boot TRSDOS 6.x and FORMAT a 40-track SINGLE DENSITY 
disk In drive 1. Using the copy coaaand, copy the MODELA/III 
file froa the TRSDOS 6.x disk to the foraatted disk in drive 1; 
then reaove that disk froa drive 1 and put aside. 

2. Using the MODELA/III disk that coaes with the 4P in drive 
RESET the coaputer whilst holding down the <P> key until the 
disk swap proapt appears on the screen. 

3. Reaove the MODELA/III disk froa drive and insert the 
Model III NEWDOS/80 disk in its place and hit the <ENTER> key 
and NEWDOS/80 banner and READY prompt will appear. 

4. Set the PDRIVE for drive 1: 
PDRrVE,0,l,TI=A,TD=E,TJ^42,SPT-18,TSR=0,GPL=2,DDSL=17,DDGA=2,A<ENTER> 

Note . A normal 4P drive can coafortably foraat 42 tracks - 
check yours and If it cannot handle this, set TC to suit your 
drive's capability. You aay even find that TC=43 is OK. 

5. Insert a fresh disk in drive 1, To get all your System 
files onto the new disk 

COPY,0,1„FMT,CBF,/SYS <ENTER> etc. 

6. You now have to create a read-protected sector at DRIVE 
1, TRACK 17, SECTOR 0, so that at bootup the machine firmware 
will think that it is looking at the GAT sector of the disk 
directory- 
Using SUPERZAP's DD, go to SECTOR 306 of your new disk 

thus:- 

SUPERZAP <ENTER> <ENTER> 1,306 <ENTER> 

and do the following steps: - 

MOD00 0100 ZTFP <Enter> <Enter> <Y> <Enter> (This 
will cause FE ljex bytes to be loaded to address 0000H at bootup) 
MODCD 43 <Enter> <Y> <Enter> (This byte tells the 
firmware as follows:) 

BIT 7 = (system disk) 

BIT 6 =< 1 (double density) 

BIT 5 --= (single sided) 

BIT 4=0 (not used) 

BIT 3=0 (not used) 

BIT 2 = ) 

BIT 1 - 1 )} these three bits Bust equal 

BIT » 1 ) one less than the GPT (grans 
per track) used in formatting the disk (with NEWDOS, 2 Granules 
Per Luap, 2 Lumps Per Track = 4 hence set 3) 

SCOPY 1,306 <Enter> <Y> <Enter> <Enter> (this will 
read-protect the sector to allow the firmware to think that it is 
a directory sector of a TRSDOS 6.x disk. 

7. Go to sector 307 by pressing <;>. This sector will become 
the dummy Hash Index Table (HIT) for the dumay directory we are 
creating. As the MODELA/III is found by the firmware without 
reference to the HIT sector, it is only necessary for the 
firmware to harmlessly load this sector to address 0000H where it 
will be overwritten by the MODELA/III file. 

MOD00 01FE ZTFF <Enter> <Enter> <Y> <Enter> 

8. Go to sector 308 by pressing <;>. This sector will 
become the directory entry for the firmware to find the 
MODELA/III file. 



MOD00 0100 ZTFF <Enter> <Enter> <Y> <Enter> 
MOD20 1000 0000 004D 4F44 454C 4120 2049 4949 
9642 9642 0000 111A FFFF FFFF FFFF FFFF 
<Enter> <Y> <Enter> 
SCOPY 1,308 <Enter> <Y> <Enter> <Enter> 

You have now created a directory entry for the 
MODELA/III file that tells the firmware to find the file starting 
at Track 17 Sector 1. The BOOTSTRAP loader already knows that 
it has to load 39H sectors and does not look for how many to 
load. 

9. Set the PDRIVE on drive to read single density on 
drive 1:- 

PDRIVE,0,1.TI=A,TD-A,TC=40,SPT-10,TSR=3,GPL=2,DDSL=17,DDGA-2,A 
(don't forget the ,A). Remove your new disk from drive 1 and 
place the single density copy of the MODELA/III file that you 
created earlier into drive 1. Enter SUPERZAP and with the DFS 
feature deternine where the MODELA/III file resides on the disk 
(it should occupy DRS 10 to 66). 

Place the new NEWDOS disk with the dummy directory in 
drive (DO NOT REBOOT AT THIS STAGE) and with the CDS feature 
of SUPERZAP with SOURCE as 1,10 and DESTINATION as 0,309 with a 
SECTOR COUNT of 57, you will copy over the MODELA/III file to 
sectors 309-365 inclusive on your new disk. 

10. Next we have to create a directory entry for NEWDOS to 
find the file, which, to save confusion with the dummy entry we 
will name M0DEL3/R0M and make it an invisible file. With 
SUPERZAP go to DRS 172 (this is the first directory entry sector 
for NEWDOS under the PDRIVE specs shown above) 

MOD80 5F20 0000 004D 4F44 454C 3320 2052 4F4D 
5678 1234 3D00 1E2C FFFF FFFF FFFF FFFF 
<Enter> <Y> <Enter> 
Now press <-> twice to backstep to sector 170 (the GAT - 
granule allocation table sector) 

M0D1E FEFP 

FFFF FFFF FF <Enter> <Y> <Enter> 
(This will protect sectors 305 to 369 froa being overwritten by 
NEWDOS), 

Go to Sector 171 and 

MOD80 43 <Enter> <Y> <Enter> (43 is the HASH code for 
M0DEL3/R0M we are here placing at the correct directory location 
spot in the hash index table). 

11. At this stage we can test our creation out. Remove both 
disks from the drives and turn off the power, wait a generous 20 
seconds and switch on, insert your NEW NEWDOS disk in drive 
and hit Reset. If you have followed all the steps correctly, 
after about 20 seconds you should have the NEWDOS logo and 
NEWDOS/80 READY prompt appear on the screen. 

12. Set the PDRIVE for drive 1 the same as drive but with 
TC=40. Set the SYSTEM options to your requirements and press 
Reset. 

13. Insert the Model III NEWDOS/80 master disk in drive 1, 
and 

COPY,1,0„NFMT,CBF,CFWO 
Select all files other than the system (/SYS) files (which 
are already on the disk) to be copied. Make sure to do the copy 
as above or you are likely to end up with some files being 
missed in the new master copy. 

14. To correct the real time clock to Be accurate at both 2 
and 4 MHz it is necessary to alter two bytes In SYS0/SYS (it 
would pay for you to check the real time clock against a stop 
watch to see if you have enough variation to need this mod). The 
first is at FRS 2.24H change 1EH to 04H; the second is at FRS 
11.A0H change from 19H to 1DH. If you have a MODELA/III file that 
has the full word COPYRIGHT (not abbreviated to (c)) at the very 
end of the file (check with SUPERZAP DFS feature FRS59) then you 
will have to alter FRS 57.54H from 1EH to 33H (it should be 
preceded by 24 42 CD 8E). In the later versions of this file the 
byte has already been altered so Tandy must have realised a 
timing problem with the real time clock. 

You now have a full BOOTING 40+ track master copy of 
NEWDOS/80 for your 4P. Place a write protect on this copy and 
back it up to several working copies by:- 

COPY,0.1,,FMT,BDU <ENTER> (BDU ensures a complete 
CLONE copy, no matter what you've done, so should be used if you' 
have a non-standard disk to copy!). 

2. CRE ATE AN BO-TRACK DOUBLE SIDED BOOTING SYSTEM DISK 

If you have fitted an 80 track double-sided drive (drive #1) 
to your 4P and have set up a switch so you can turn it into 
drive 0, then you need this booting 80-track version of 
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NEWDOS/80. (The arrangement for switching your drives is fully 
covered in the next section of this article.) 

To create this disk you will need to have previously Bade 
the 40-track self-booting NEWDOS disk described in the previous 
section of this article. To prepare a double-sided 
double-density disk under NENDOS, you MUST use SUPERZAP — 
SuperUtility + is incapable of handling this configuration!! 

1. With your 40-track self-booting disk in drive set the 
PDRIVE for your 80-track drive as follows. 

TI=A,TD-G,TC-80 I SPT='3e,TSR=0(or 1,2,3),GPL=8.DDSL"17,DDGA>4 

****** ensure that DDSL=17 ****** 

2. COPY,0,1„PMT,CBF,/SVS (this will put all the SYS files onto 
the 80-track disk in the correct places). I assume here that the 
80-track drive is drive #1 — if otherwise, then use the correct 
drive number. 

3. The next step is to create a file space for the 
MODELA/III file: 

CREATE,M0DELA/III:l,LRI.»256,REC-57 <ENTER> 

4. Use SUPERZAP,DFS,M0DELA/III:1 to find where on your 
80-track disk the file is located (it should be at DRS 20-76). 

5. With SUPERZAP go to sector 612 on your 80-track disk. 

a. MOD00 ZTFF move the cursor to byte CC and change 00 to 
20 (excess of tracks over 35. 2D HEX=45 DEC). Alter byte CD froa 
00 to 62 (to Indicate 80-track double-sided double-density). Hit 
<ENTER> <Y> <BNTER> and with <;> aove to sector 613. 

b. MOD00 ZTFF <ENTER> <Y> <ENTER> and with <;> aove to 
sector 614. 

c. MOD00 ZTFF <ENTER> <Y> <ENTER> SCOPY drive,614 <Y> 
<ENTER> 

d. type in K and at the proapt answer 612 then type SCOPY 
drlve,612 <Y> <ENTER> 

e. type in K and at the proapt answer 614. We now have to 
write a false directory entry for the MODELA/III file pointer. 

MOD00 1000 0000 004D 4F44 454C 4120 2049 4949 
9642 9642 3900 0091 FFFF FFFF FPFF FFFF 
<ENTER> <Y> <ENTER> 

6. Hit X to return to the aenu and with DFS go to 
DIR/SYS:dn and FRS0 and HOD0F froa F8 to FC to protect the 
dummy directory. Return to the aenu with X and with CDS <Y> 

0,309 <ENTER> dn,20 <ENTER> 57 <ENTER> the MODELA/III file 
sectors on your system disk will be copied over to your 80-track 
disk froa the 40-tracker (this puts the file where the BOOT RON 
can find it). 

7. Now COPY,0 > dn„NFMT,CBF.CFWO and copy over the remainder 
of the NEWDOS files to your 80-track disk (MAKE SURE 
THAT YOU DO NOT COPY OVER THE 
MODEL3/ROM FILEII!!). If you need to do the 
alterations for the real tlae clock refer to the 40-track boot 
disk section of this article. 

8. You aust now renaae the MODELA/III file: 

RENAME MODELA/III:dn MODEL3/ROM <ENTER> 
and Bake it invisible with: 

ATTRIB,M0DEL3/R0M:dn,INV 

9. If you have two 80-track drives you can back up this 
disk with a siaple C0PY,dnl,dn2. Alas, If, like me, you have only 
one 80-track drive in the systea, then you will have to make a 
backup copy by the COPY,0,0 and do a lot of disk swaps (you will 
still find it very worthwhile for the amount of storage space left 
on the disk after all your favourite files are on it). 

3. HOW TO INSTALL A DRIVE SELECT SWITCH OH YOUR 4P 

If you fit an 80-track drive to your Model 4P then this is 
for you. It will allow you to select an alternative drive as 
drive by the flick of a switch (internal or external drives aay 
be switched). 

You will need to reaove the case froa your 4P (thus voiding 
the warranty, if still current) and install a switch in front of 
the drive by drilling a hole on the right hand front side Of 
the drive recess in the horizontal plastic recess in the case. 
If you buy a small double-pole double -throw (DPDT) switch froa 
Tandy, a V hole will be about right. You will need to solder 
soae wires to the switch and to the cable near J5 at the back of 
the drives. Counting froa the dark edge of the cable, cut line 
10 (drive 0) about 1" froa the J5 header plug and do the saae to 
line 12 (drive 1), strip a Biniaua aaount of each of the cut wires 
on both sides of the cut and solder wires (four in all) long 
enough (about 14") to reach the switch. 

The two wires that you soldered to the short ends nearest 
to J5 are soldered to the two centre terminals of the Switch. 
The cable end of the cut wire at JS 10 will hook up to the end 



terminal of the switch on Uwa t d e where J5 10 Is terminated. 
You now run a wire fro* here to the diagonally opposite end 
terainal. How connect the other wire (cable side J5 12) to one 
of the two terminals left over and run a wire from there to the 
opposite diagonal (spare) end terainal. Mount the switch so dri 
Is selected if the switch lever Is pointing left from the 
operator's viewpoint. The four leads to the switch are best 
routed between the drive's mounting bracket and the top shield of 
the main printed circuit board. 

Place the cover back on the computer and you can now swap 
drive and 1 by the flick of a switch. If you were doing drive 
2 or 3 instead of 1 use J5 14 (drive 2) or J5 6 (drive 3) as 
required. 

The leads are Barked on the diagram below thus: R10 - plug 
side of the cut on line 10, P12 • plug side of the cut on line 12, 
CIO - cable or drives side of the cut on line 10, C12 » cable 
side of the cut on line 12. 
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RIBBON CABLE 

I 

TO DRIVES 



rnr in jYT" 1 '"" ""- nimtnvin mix r 

by Phil Ereaut 

(Reprinted froa BITS ft BYTES, a publication of the TRS-80 
SYSTEM-80 Computer Group, 16 Laver Street, MacGregor, Queensland 
4109. Australia.) 

When using the NEWDOS/80 BASIC extra list facilities, a 
problem can occur when using the Up Arrow to list previous lines. 
The previous line numbers are listed under the existing lines In 
reverse order, and can cause confusion in reading the screen, 
particularly when frequently changing backward and forward from 
Up Arrow to Down Arrow. 

This ZAP gives an indication on the screen, when changing 
from forward listing to backward listing and vice versa. The 
indication Is in the form of a single line gap, with an ARROW at 
the beginning of the blank line. This arrow will only be displayed 
on the changeover, any following operation of the same key will be 
as normal. 

With SUPERZAP, make the following changes to Relative 
Sectors 1 and 3 :- 

SYS18/SYS.01.C5 change 00 C3 33 2B 52 to 00 C3 60 55 52 

SYS18/SYS.03.70 change All Zeros to: 

ES 21 5F 55 3A 27 52 P5 BE 28 17 PE 5B 28 0B PB 
0A 20 0P 7B PB 5B 3E 5C 20 08 CD 33 00 3E 0D CD 
33 00 Fl 77 El C3 33 2B 
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DISPLAY DIRECTORIES BY PASSWORD 

[Reprinted from the Corpus Christ! TRS-80 Users' Group 
newsletter:] 

DIRPW/CMD Is a program I wrote to display directories 
according to the password encode of the access password. The 
command syntax is; 

DIRPW <drive> <password> 

drive specifies the drive number to display. If omitted, the 
program defaults to drive 0. password is an optional parameter 
that specifies what password a file must have to be displayed. If 
omitted, all files will be displayed. The routine was originally 
written for NEWDOS/80 version 2, but I think it should work for 
other DOS's as well that use a standard TRSDOS 2.3 directory 
format. 

[NORTHERN BYTES editor's note: Be sure to note the position 
of the closing single quotation mark in line 200. It is very 
important to note that the string literal in this line is exactly 32 
characters long, which means that there are 23 spaces following 
the ":0" in this line.] 



5210 


00100 
00110 


ORG 


5200H 


4424 


00120 DSOPEN 


EQU 


4424H 


4428 


00130 DSCLOS 


EOU 


4428H 


44% 


00140 DSHD 


EQU 


4434H 


4442 


00150 DSPOS 


EOU 


4442H 


0133 


00140 vDCHAR 


EQU 


0033H 


0028 


00170 KBCHAR 
00180 


EQU 


002BH 


0100 


00170 UREC 


DEFS 


100H 


5300 44 


00200 DIRFCB 


DEFH 


'DIR/SY5>0 


4? 52 2F 53 57 53 3A 30 20 20 20 20 20 20 20 20 


20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 


5320 20 


00210 PUDVAL 


DEFM 


> 1 


20 20 20 20 20 20 20 


\ 




5326 0000 


00220 HSHVAL 
00230 


DEFY 


AUUUM 
WWII 


532A 3E0O 


00240 START 


LD 


A.0DH iDISPLAY C/R 


532C CD3300 


00250 


CALL 


VDCHAR 


532F7E 


00240 


LD 


A.(HL) iGET FIRST CHAR 


5330 FE3A 


00270 


CP 


'7'+l ;IS IT NUMERIC? 


5332 300E 


00280 


JR 


NC, PUSET 


5334 FE30 


00270 


CP 


'0' 


5336 3B0A 


00300 


JR 


C.PUSET 


5338 320853 


00310 


LD 


(DIRFCBtB)iA ;YES> STORE AS DRIVE t 


5338 23 


00320 


INC 


HL 


533C 7E 


00330 


LD 


A.(HL) 


533DFE0D 


00340 


CP 


0DH 


533F2801 


00350 


JR 


Z.PUSET 


5341 23 


00340 


INC 


HL 


5342 0406 


00370 PUSET 


LD 


Bi8 iGET PASSWORO TO CHECK 


5344 112053 


00360 


LD 


DE.PWDVAL iSTORE IT IN PUDVAL 


5347 7E 


00370 PU5ET1 


LD 


A.(HL) 


5348 FE20 


00400 


CP 


ft 


534AZ807 


00410 


JR 


Z.HSRTN 


534CFE0O 


00420 


CP 


0DH 


534E2805 


00430 


JR 


Z.HSRTN 


5350 12 


00440 


LD 


(DEM 


5351 23 


00450 


INC 


HL 


5352 13 


00440 


INC 


DE 


5353 10F2 


00470 


DJNZ 


PU5ET1 


5355 212753 


00480 HSRTN 


LO 


HL.PUDVAL+7 ; COMPUTER HASH CODE FOf 


5358 11FFFF 


00470 


LD 


DE.0FFFFH 


535B0608 


00500 


LD 


B.B 


535DC5 


00510 HSRTN1 


PUSH 


BC ' ' 


535E 7B 


00520 


LD 


AiE 


53SFE407 


00530 


AND 


07H 


5341 4F 


00540 


LD 


C.A 


5342 7B 


00550 


LO 


AiE 


5343 07 


00540 


RLCA 




5344 07 


00570 


RLCA 




5345 07 


00580 


RLCA 




5344 A9 


00570 


XOR 


C 


5367 07 


00400 


RLCA 




5348 4F 


00410 


LD 


C>A 


5347 E4F0 


00420 


AND 


0F0H 


5348 47 


00430 


LD 


B>A 



534C77 


00640 


LD 


AiC 


> ,- 


534D07 


00650 


RLCA 






534EE41F 


00640 


AND 


1FH 




5370 A8 


00670 


XOR 


B 




5371 AA 


00680 


XOR 







5372 5F 


00670 


LD 


E>A 




5373 77 


00700 


LD 


A.C 




5374 E40F 


00710 


AND 


0FH 




5374 47 


00720 


LD 


B>A 




5377 77 


00730 


LD 


AiC 




5378 07 


00740 


RLCA 






5377 07 


00750 


RLCA 






537A07 


00740 


RLCA 






537B07 


00770 


RLCA 






537C AS 


00780 


XOR 


B 




537D CI 


00770 


POP 


BC 




S37EAE 


wow 


XOR 


(HL) 




537F57 


00810 


LO 


0>A 




5380 34Z0 


00820 


LD 


(HD.20H 




5382 2B 


00830 


OEC 


HL 




5383 10D8 


00B40 


DJNZ 


HSRTN1 




53B5 ED53Z853 00850 


LD 


(HSHVAL). OE 


iDE HAS HASH VALUE 


5387 110053 


00840 


LO 


DE.OIRFCB 


iOPEN OIR/SYS 


53BC 210052 


00870 


LD 


HL.UREC 




53BF0400 


(MAM 


LD 


B.0 




5371 CD2444 


00870 


CALL 


DSOPEN 




5374 C21A54 




JP 


NZ.DIRR10 




5377 010200 


00710 


LD 


BC.2 


(POSITION TO REC 02 


537A CD4244 


00720 


CALL 


DSPOS 




537D 207B 


00730 


JR 


NZ.D1RR10 




537F 110053 


00740 DIRRD1 


LD 


DE.OIRFCB 


iGET ONE RECORD 


53A2 210052 


00750 


LD 


HL.UREC 




53AS"C03444 


00740 


CALL 


DSRD 




53A8 2804 


00770 


JR 


Z.D1RR02 




53AAFE04 


00780 


CP 


4 




53AC204C 


00770 


JR 


NZ.DIRR10 




53AE0408 


01000 DIRRD2 


LD 


B.8 




53B0C5 


01010 DIRRD3 


PUSH 


BC 


iGET ONE FOE 


5381 E5 


01020 


PUSH 


HL 




53B2 7E 


01030 


LD 


A.(HL) 


iTEST FOR VALID FOE 


5383 E408 


01040 


AND 


0DBH 




53B5EE10 


01050 


XOR 


10H 




5387 2051 


01040 


JR 


NZ.0IRR07 


i INVALID. GET NEXT FOE 


5387 111200 


01070 


LD 


DE.18 


iVALID FDEiTEST PU 


53BC 17 


01080 


ADD 


HL.DE 




53BD5E 


01070 


LD 


E.(HL) 




53BE23 


01100 


INC 


HL 




53BF54 


01110 


LO 


D.(HL) 




53C0 2A2853 


01120 


LD 


HL.(HSHVAL) 




53C3D5 


01130 


PUSH 


DE 




53C4E5 


01140 


PUSH 


HL 




S3CS 117442 


01150 


LD 


DE.4274H 




53C8B7 


01160 


OR 


A 




53C7 ED52 


01170 


SBC 


HL.DE 




53CBE1 


01180 


POP 


HL 




53CCD1 


01170 


POP 


DE 




53CD2805 


01200 


JR 


Z.DIRR12 


IGO IF VALID 


53CFB7 


01210 


OR 


A 




5300 ED52 


01220 


SBC 


HL.DE 




5302 2034 


01230 


JR 


NZ.0IRRD7 


iNO NATCH; NEXT FOE 


5304 El 


01240 DIRR12 


POP 


HL 




53D5E5 


01250 


PUSH 


HL 




53D4 110500 


01240 


LO 


DE.5 




53D7 17 


01270 


ADD 


HL.DE 




53DA 011008 


01280 


LD 


BC.0810H 


iDISPLAY FILENAME 


53DD7E 


01270 0IRRD4 


LO 


A.(HL) 




53DEFE20 


01300 


CP 


t t 




53E0 2804 


01310 


JR 


Z.DIRRD5 




53E2 CD3300 


01320 


CALL 


VDCHAR 




53ES0O 


01330 


OEC 


C 




53E4 23 


01340 0IRRD5 


INC 


HL 




53E7 10F4 


01350 


DJNZ 


DIRRD4 




53E7 7E 


01340 


LD . 


A.(HL) 




53EAFE20 


01370 


CP 


) J 


iEXTENSION? 


53EC2804 


01380 


JR 


Z.DIRRD4 




53EE3E2F 


01370 


LO 


A,'/' 


iDISPLAY EXTENSION 


53F0 CD3300 


01400 


CALL 


VDCHAR 




53F3 0D 


01410 


OEC 


C 




53F4 0403 


01420 0IRR04 


LO 


B.3 




53F4 7E 


01430 DIRRD7 


LD 


A.(HL) 
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53F7 FE20 
53F? 2804 
53FB CO3300 
53FE 0D 
53FF23 
5400 10F4 

5402 41 

5403 3E20 
540S CO3300 
5408 10FB 
540A El 
540B CI 
540C CD2B00 
540FB7 
5410 2006 
5412 112000 

5415 17 

5416 107B 
5416 1685 
541A 110053 
541D CD2844 
5420 3E0O 
5422 CD3300 
5425 C7 
532A 

I TOTAL 



01440 
01450 
01460 
01470 

01480 D1RRD6 
01470 
01500 
01510 

01520 DIRR11 
01530 

01540 DIRRD7 
01550 
01560 
01570 
01560 
01570 
01600 
01610 
01620 

01630 DIRR10 
01640 
01650 
01660 
01670 
01660 
ERRORS 



CP 

JR 

CALL 

DEC 

INC 

DJNZ 

LD 

LD 

CALL 

DJNZ 

POP 

POP 

CALL 

OR 

JR 

LD 

ADD 

DJNZ 

JR 

LD 

CALL 

LD 

CALL 

RET 

END 



Z.D1RRDB 

VOCHAR 

C 

HL 

D1RRD7 

B>C 

A,' ' 

VOCHAR 

DIRR11 

HL 

BC 

KBCHAR 

A 

NZiDIRR10 

DE.20H 

HL.DE 

D1RRD3 

DIRRD1 

DE.DIRFCB 

DSCLOS 

A.0DH 

VDCHAR 

START 



iTAB TO NEXT 16TH POS 



;GET NEXT FOE 



iCLOSE D1R/SYS 
iOISPLAY C/R 
:AND EXIT 



OIRFCB 5300 

DIRRD2 53AE 

0IRRD7 53F6 

DSPOS 4442 

KBCHAR 002B 

UREC 5200 



DIRR10 541A 

OIRRD3 53B0 

DIRRD6 53FF 

DSRD 4436 

PUDVAL 5320 

VDCHAR 0033 



DIRR11 5405 

DIRRD4 53DD 

OIRRD? 540A 

HSHVAL 5326 

PUSET 5342 



0IRR12 53D4 

D1RRD5 53E6 

DSaOS 4428 

HSRTN 5355 

PUSET1 53*7 



DIRRD1 537F 

DIRRD6 53F4 

DSOPEN 4424 

HSRTN1 535D 

START 532A 



SCRC ON WB AS 

by Oswald Cooper 

[This article is reprinted from Bits and Pieces, the newsletter 
of The Northeast Computer Club.] 

The following program will take the output from a 
SuperScripsit selection file from Profile 4 Plus and create a "Name 
and Address" file and a text file for use with the form letters 
option of Allwrite. The program asks for the source file and a 
destination drive for the new files. The new file names are the 
same as the source file but with the extension of "NAA" and "TXT". 
If a source or destination drive number is not specified then all 
drives will be searched for the source and the destination will 
default to drive 1. If a source drive is specified but no 
destination, then the destination defaults to the source drive. 

You are then asked to provide the code character that 
Allwrite will use. This defaults to "@". The program then requests 
the code letter to use and defaults to "A" if none is specified. 

The program then prints the header information from the 
source file to the next file (as comment lines) and transfers the 
data to the new data file. On completion the data file may be 
loaded into Allwrite and the last two lines deleted These are the 
end of file markers used by SuperScripsit but Allwrite will generate 
one more letter from the list, but with blank data items. I use this 
copy of the letter (along with a copy of the name and address file) 
as a file record of the information sent. The input file is not 
changed in any way, so the data in that file can still be used by 
SuperScripsit. 

The text file (FILENAME/TXT) contains comment lines defining 
the variables to be used and the selection code used along with 
the file name and the control word to use the name and address 
file. 

Line numbers underlined are referenced by "GOTO" or "GOSUB". 

[NORTHERN BYTES editor's note: Don't type in the lines that 
begin with REM, they are for information purposes only.] 

10 REM SCRCONV/BAS 

20 CLEAR 

30 DEFINT A-Z: CLS: GOTO 10000 

REM PRINT A MESSAGE CENTERED ON A LINE 

IOR TO ENTRY 

400 

10000 

OPER" 

10010 

10020 



ESTABLISH PRINT# PR 



10030 PRINT "THIS PROGRAM WILL GENERATE THE FOLLOWING FILES 
FROM A" 
10040 PRINT "PROFILE 4 PLUS SUPERSCRIPSIT SELECTION FILE:" 



PRINT TAB(40 LEN(PROMPT$)/2);PROMPT$:RETURN 
PROMPT$="SCRCONV/BAS VERSION 01.02.01 



OSWALD CO 



PRINT @0,::GOSUB 400:PROMPT$STRING$(LEN(PROMPT$)." ") 
PRINT @80.;:GOSUB 400 



10050 
10060 
10070 
10080 



PRINT 
PRINT 
PRINT 
PRINT 



NAME AND ADDRESS FILE: 
ALLWRITE TEXT FILE 



FILENAME/NAA 
FILENAME/TXT 



'TYPE IN THE SOURCE FILE NAME AND DESTINATION DR 



IVE NUMBER" 
10090 PRINT 



OF THE OUTPUT FILES, I.E.: 
PRINT "IF 's' ONLY IS SPECIFIED THEN 'd' 
PRINT "DEFAULT DESTINATION DRIVE IS 1 



FILENAME/SRI :s :d 
BECOMES V ALSO" 
IF NO DRIVES SPECI 



PRINT 

PRINT "PRESS « ENTER » TO QUIT OR" 

LINE INPUT " TYPE THE INPUT FILE NAME: ";FILESPEC1$ 

IF FILESPEC1$="" THEN PRINT:PRINT "JOB ABORTED.": GOTO 65 

IF LEFT$(RIGHT$(FILESPEC1$,2),1)<>":" THEN DRIVE$=":1" 
I=INSTR(FILESPEC1$,":"):IF I<>0 THEN DRIVE$=RIGHT$(FILESPEC1 



10100 

10110 

FIED." 

10120 

10130 

10140 

10150 

000 

10160 

10170 

$.2) 

10180 I=INSTR(FILESPEC1$,V"):IF IO0 THEN FILESPEC2$=LEFT$(FILES 

PEC1$,I)+"NAA"+DRIVE$:FILESPEC3$=LEFT$(FILESPEC1$,I)+"TXT"+DRIVE$ 

10190 IF INSTR(FILESPECl$,"/")=0 THEN F1LESPEC2$=FILESPEC1$+VNA 

A"+DRIVE$:FILESPEC3$=FILESPECl$+"/TXT"+DRIVE$ 

10200 PRINT "OUTPUT DATA FILE IS: "FILESPEC2$ 

10210 PRINT "ALLWRITE TEXT FILE IS: "FILESPEC3$ 

10220 PRINT 

10230 LINE INPUT "ENTER CHARACTER FOR CODE (DEFAULT = : ";CO 

DE.CHARS 

10240 IF CODE.CHAR$="" THEN CODE.CHAR$="@" 

10250 LINE INPUT "ENTER CODE TO USE (DEFAULT - A): ";CODE$ 

10260 IF CODE$="" THEN CODE$="A" 

10270 PRINT 

10280 OPENT,l,FILESPECl$ 

10290 OPEN"0",2,FILESPEC2$ 

10300 0PEN"O",3,FILESPEC3$ 

10310 PRINT "ALL FILES OPENED." 

10320 PRINT #3,";CM FILENAME: "+FILESPEC3$ 

10330 PRINT #3,";RD "+CODE.CHAR$+","+FILESPEC2$ 

10340 PRINT #3,";CM CODE USED: "+CODE$ 

10350 PRINT #3,";CM INFORMATION HEADER BLOCK 

10360 PRINT "WRITING INFORMATION HEADER BLOCK TO "FILESPEC3* 

IF EOF(l) THEN GOTO 12000 

LINE INPUT #1,A$ 

COUNT^COUNT+1 

IF LEN(A$)-0 THEN PRINT #2,CODE.CHAR$+CODE$:GOTO 12000 

B$«MID$(A$,2,LEN(A$)- 2) 

PRINT #3,";CM "+CODE.CHAR$+CODE.CHAR$+MID$(STR$(CO 

UNT),2)+" "+B$ 

11060 GOTO 11000 

12000 COUNT=COUNT-l 

12010 PRINT #3,";CM .—====—============-—===-=—"=========" 



REM ADDITIONAL DEFAULT CONTROL WORDS CAN BE ADDED TO TH 
E TEXT FILE HERE 

I.E., TURN OFF FORMATTING : PRINT #3,":FO OFF" 
OR TO ADD THE CURRENT DATE: PRINT #3,"@@0" 
REM AN ADDITIONAL COMMENT CAN BE ADDED TO THE TEXT FILE 
BY INCLUDING THE 

FOLLOWING: LINE INPUT "ENTER COMMENT: ";COMMENT.TEXT 

$ 

PRINT #3,";CM "+COMMENT.TEXTS 

12020 CLOSE 3 

12030 PRINT " DONE." 

12040 PRINT "WRITING DATA FILE "FILESPEC2$: PRINT 

12500 IF EOF(l) THEN GOTO 14000 

12510 LINE INPUT #1, A$ 

12520 IF LEN<A$) THEN PRINT #2,CODE.CHAR$+CODE$:GOTO 13000 

12530 B$-LEFT$(A$,LEN(A$) 1) 

12540 B$=RIGHT$(B$,LEN(B$) 1) 

12550 COUNTER=COUNTERi 1 

12560 IF COUNTER>COUNT THEN COUNTER- 1 

12570 C$"CODK.CIIAR$+CODE.CHAR$+MID$(STR$(COUNTER),2)+" " 

12580 B$-C$+B$ 

12590 PRINT #2,R$ 

13000 GOTO 12500 

14000 CLOSE 

14010 PRINT "JOB COMPLETE." 

14020 PRINT "TYPE 'AL "FILESPEC3$"' TO EDIT THE FILE." 

65000 END 
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MORE ON INPUT KITH INKEY 
by Alf Nest 

(Reprinted from the TRS-80 SYSTEM 80 Computer Group 
newsletter (16 Laver Street, MacGregor, Queensland 4109, 
Australia).] 

The uses of INKEYS for reading and acting on the keyboard 
input was Mentioned in issue nuber 23 [of the TRS-80 SYSTEM 80 
Computer Group newsletter] in the article "A Comprehensive Look 
(and Peeks) at the Keyboard". This article develops Ideas for a 
■ore comprehensive use of the INKEYS command. 

We will start with the usual "press any key to continue" 
type of INKEY$ statement which is used to give an indefinite 
delay while you read instructions or a long list of information, 
viz :- 

10 PRINT'List of Instructions or Information .. 
20 PRINT'PRESS ANY KEY TO CONTINUE" 
30 A$ = INKEYS: IF AS'"" THEN 30 
40 .. Program continues 

This does not always work as you might expect because ' if 
some galah happens to lean on the keyboard and depress a key 
while the computer is printing the list of instructions or 
information on the screen, you find that there was no delay and 
the program progresses through to line 40 (and beyond) before 
you had a chance to read and digest the information printed on 
the screen by line number 10. To prevent that happening, it is 
desirable to fudge in the following line immediately before the 
INKEYS statement. 

25 POKE 16537,0 

This zeros the address which holds the last character which 
had been entered from the keyboard and "cleans the slate" for 
the INKEYS, and the program will not proceed until a key is 
pressed after the computer gets to line number 25. The inclusion 
of this POKE is often desirable with the INKEYS statement to 
avoid spurious results where the operator may "pussy foot" on the 
keyboard while a program is running. 

Leaving this aspect aside, let's look at line number 30 
which loops on itself until a key is pressed. The INKEYS could 
not be added at the end of line number 20 as the loop would 
cause the "PRESS ANY KEY TO CONTINUE" to be printed over and 
over again until a key was pressed. The following line is a much 
better alternative to the above lines 20, 30 and 40. 



PRINT"PRESS ANY KEY TO CONTINUE" : FORJ=0TO0: 
NEXT:. .continue 



J=(INKEY$=""): 



TO 



We will examine the statements :- FOR J 

(INKEYS""" ) : NEXT in that line in more detail as the little 

demonstration programs which will follow are developments of this 

concept. 

In normal cases, a FOR NEXT loop from to would only 
execute once, but the logic statement (INKEYS'"") is true when 
no key is pressed, and so returns a -1. Thus poor "J" just gets 
nowhere. He becomes 1, then gets incremented by the NEXT to 0, 
but goes back to 1, and so stays in that predicament until such 
tine as a key is pressed. When that happens the logic statement 
(INKEYS-"") is false, so returning a "0" and "J" then gets back on 
his feet and the loop is exited to the rest of the program. As 
you see, this is a much more elegant approach and the "INKEYS 
loop" can be inserted wherever required in a multi-statement 
line. 

Some programmers like to have a flashing cursor to indicate 
to the operator that he should do something. We can enlarge on 
the statements underlined above with some logic to turn the 
cursor on and off as follows : - 

10 PRINT"PRESS ANY KEY TO CONTINUE "; : POKE 16418.140 
20 FORJ=0 TO : J-(INKEY$ •--"") : JJ=(JJ+1) AND 7 
30 PRINT CHRJ04 AND (JJ-1) OR 15 AND. (JJ-5)); : NEXT : PRINT 
40 .. Program continues 

The address 16418 holds the value of the cursor character, 
so that is poked with the value of a graphic block to make it 
stand out this is optional depending upon what you feel like 
and if your ordinary cursor is O.K. then the POKE can be ignored 
[it won't work on an unmodified Model 1 computer, but should work 



as shown on a Model III or 4 (III mode). Note that if your DOS 
provides for a flashing cursor, this routine will be unnecessary 
-editor]. The INKEYS routine starts and finishes as before but in 
the Logic statement at the end of line 20, JJ starts at zero and 
is Incremented as the FOR NEXT loop goes around until it is 7. 
The "AND 7" then seta JJ back to zero. The first statement In 
line 30 initially prints "CHR$(0)" which does nothing until JJ 
equals 1 when it prints "CHRS(14)" which is the control code to 
turn on the cursor, or alternatively until JJ equals 5 when It 
prints "CHRS(15) M which is the control code to turn off the 
cursor. Hence the cursor flashes to warn the operator until he 
acts on the Message and presses a key, when the program then 
falls out of the loop as it does in the general case as 
previously underlined. 

Leaving the flashing cursor bit, now assume that we want to' 
know what key was actually pressed. We allocate some string 
variable to INKEYS, let's say INS and the following demo program 
will tell us which key. 

10 CLS : PRINTTHIS IS THE START - PRESS ANY KEY" 

20 FOR J-0 TO : INS-INKEYS : J^(INS="") : NEXT 

30 PRINT-THIS IS THE END - YOU PRESSED THE <"INS"> KEY" 

Line 20 in this case is exactly the same as the previous 
underlined statement except that we have pre-defined INS as 
being equal to INKEYS. and so by printing INS after the loop, we 
see what key was pressed. 

This now leads to the obvious extension of these ideas so 
as to take alternative action according to what key the operator 
pressed. Just as the INKEYS was used in an ordinary FOR NEXT 
loop (you might say, not so "ordinary"), the INKEYS can be used in 
an INSTR test. (Note: Although the INSTR command is normally 
only applicable to Disk Basic, it can be used in Level II Basic if 
you use Warwick Sands' Tape Operating System, a copy of which Is 
available from the Club Library) 

The following demonstration program illustrates the 
INSTR/INKEYS use In selecting an Item in a menu ;- 

10 CLS:PRINT"SELECT MENU ITEM ( <A> <B> <C> <D> OR <E> ) ?" : 

F$=»"XABCDE" 

20 FOR J-2 TO 2:J=INSTR("XABCDE",INKEYS): NEXT: ON J-2 GOTO 

100,200.300,400,500 

100 PRINTTHE <A> MENU ROUTINE CONTINUES ....":END 

200 PRINTTHE <B> MENU ROUTINE CONTINUES ....":END 

300 PRINTTHE <C> MENU ROUTINE CONTINUES ....":END 

400 PRINTTHE <D> MENU ROUTINE CONTINUES ....":END 

500 PRINT"THE <E> MENU ROUTINE CONTINUES ..,.":END 

The FOR NEXT loop in line number 20 here is not from to 
but from 2 to 2 due to a peculiarity of the INSTR function and 
this peculiarity causes the need for the "X" (it can be any 
unwanted character) at the beginning of the INSTR brackets. To 
explain - if you were seeking say the first item on the menu; and 
entered "A" in a normal INSTR test, e.g. F = INSTR("ABCDE","A") 
then F would be 1, but when you say F = INSTR("ABCDE",INKEYS) 
the computer comes up with an answer of "1" when no key is 
pressed, i.e. when INKEYS - "". (You would expect the answer of 
"0" because there is no null string in the string "ABCDE" under 
test, but this is not so.) Because you get "1" in any case when 
no key is pressed, the FOR NEXT loop must go to "2". Likewise 
you must put in a "dummy" character (X in this case) in the INSTR 
tested string to make it "XABCDE" so that the "acceptable" 
characters will start from the second position onwards to give J 
a value sufficient to exit the loop. That is the expression :- 
"J = INSTR("XABCDE".INKEYS) B gives J a value of 1 if no key or 
the "X" is pressed, a value of if any other unwanted key is 
pressed and only gets a value of 2 or more to allow exit of the 
loop if one of the wanted keys is pressed. The normal increment 
after a loop means that you use "J-2", (not J-l) in the "ON v 
GOTO" statement. (If all this "explanation" has confused you, 
don't worry because the program works - so try it out.) [Some 
DOSes have fixed the INSTR function of Disk Basic so that it 
DOES return a zero when no key is pressed. However, the above 
routine should work under ANY of the popular DOSes -editor]. 

An extension of the previous program to require the 
operator to input a given number of answers, no more and no less, 
to only allow particular "acceptable" answers, and to ensure that 
his answers are all different, i.e. that he does not repeat 
himself, is given in the following deno. program ■■- 
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10 CLS: LN=3: PRINTSELECTL^rTEMS FROM ( <A> <B> <C> <D> OR 

<E> ) ?" 

20 F$="XABCDE": OP*=STRING*(LN,32) 

30 FOR 1=1 TO LN 

40 FOR J=2 TO 2 : INJ-INKEY* : J=INSTR(F$,IN*) : NEXT 

50 IF INSTR(OP$,IN$) THEN 40 

60 PRINT IN*, : MID*(0P*,I.1HN* : NEXT 

70 PRINT : PRINTYOU SELECTED ITEMS "OP$ 

The number of items the operator must select (no more and no 
less) is specified as "LN" in line number 10 - "3" in this case. 
In line 20, F$ gives the "acceptable" items with the dummy "X" in 
front. The string "OP*", used later, is initialised as LN (3) 
nuaber of blank spaces. Line nuaber 30 sets the outside loop for 
the nuaber of acceptable entries the operator aust Bake. Line 
nuaber 40 is auch the saae as we had before except that here we 
have again allocated IN$ as being equal to INKEY$ so that we can 
use it later. If an "acceptable" key Is pressed the prograa will 
exit line 40 and (skipping over line 50 for the aoaent) line 60 
will print what key was accepted and then plant it in the first 
blank space of 0P$. The NEXT at the end of line 60 returns you 
to line 30 to get another "acceptable" letter. But if on the next 
tiae around, you select the sane "acceptable" key as you had 
done previously, then line nuaber 50 detects that that letter is 
already in 0P$, so it sends you back to line 40 to get a 
different "acceptable" letter. After having selected LN different 
acceptable letters, the outside loop is exited and then in line 
70, you aay print OPS to show all the acceptable letters. 

Needless to say in a practical prograa, rather than siaply 
print OP$, you would use the inforaation contained in OP$ to send 
you to the appropriate parts of the prograa. For exaaple, if the 
LEFT$(OP$,l) equals say "B" then GOTO .. to do such and such and 
likewise with the MID* (or RIGHT*) of OP*. 

One final exaaple of using INKEY* in a FOR NEXT loop which 
could be of interest to those Baking up gaaes prograas is for a 
"tlaed" input i.e. where the operator aust give an answer within a 
certain tlae. If he doesn't do so, he goes to the dungeons 
Instead of getting the beautiful Balden - that is if there are 
any Maidens left! 

10 CLS : PRINTYOU HAVE 50 CYCLES IN WHICH TO PRESS ANY KEY" 

20 T=50 : POR J=0 TO T : IN*=INKEY* ; J=J-T*(IN*>"") : NEXT 

30 IF J=T+1 THEN PRINTYOU MISSED OUT OFF TO THE DUNGEONS" : 

END 

40 PRINTYOU ONLY TOOK"J-T-l"CYCLES. YOU GET THE MAIDEN ?!!" 

In this exaaple, in line nuaber 20 "T" is the nuaber of "cycles 
and is set to 50. The tera "cycle" is the tiae it takes to go 
once around the FOR NEXT loop, so adjust "T" to give you the 
tiae you set the operator for hia to respond to your message. 
The logic tera "(IN*>"")" inside the loop is false if no key is 
pressed so having a value of 0. Thus if no key is pressed "J" 
doesn't change froa its noraal increaented value as the loop 
goes around and the loop functions as any noraal loop, exiting 
when "J" reaches the value of "T+l". However, if a key is 
pressed the logic tera "(IN*>"T becoaes true with a value of -1 
so that "J" becoaes equal to whatever normally increaented value 
"J" had at that tiae, plus "T". This causes the loop to exit 
iaaediately and the arithaetic of "J-T-l" in line 40 tells you 
how aany "cycles" elapsed before the operator responded. 

The listings given above are little prograas within 
theaselves which can be keyed in to test the routines, and they 
will give you soae indication of what you can do with these type 
of INKEY* routines in developing your own prograas. 

[NORTHERN BYTES EDITOR'S NOTE: I'd like to add one coaaent 
about something that was not considered in the above article. 
Usually, when I receive a prograa for evaluation purposes that 
coaes up saying "... PRESS ANY KEY TO CONTINUE ...", I proceed to 
sake a royal pain of ayself by taking the instructions literally 
and pressing any. key - well, actually, one of two keys in 
particular. Those are the left and right SHIFT keys! Usually, 
pressing one of those two keys will do absolutely nothing! On a 
Model 4, pressing either the CTRL or the CAPS key usually has a 
siailar non effect. Or. if I a« feeling REALLY nasty, 1 will press 
the BREAK key. This, of course, usually stops the prograa dead 
in its cracks. 

Sure, I know better and aa probably being a bit Baliclous 
by pressing those keys, but after all, it did say "PRESS ANY 
KEY..." The point is, for commercial software that may be used by 
people that don't realize that certain keys don't automatically 



fall under the classification of "any key", I Much prefer to say 
something like "PRESS <ENTER> TO CONTINUE" and then test for the 
ENTER key only.. This not only avoids the problems I have Just 
mentioned (a user pressing the "wrong" key due to Ignorance or 
aalice) but also helps avoid probleas that aay be caused by^C^ 
someone accidentally pressing a key before they are really ready -Jp 1 ' 
for the prograa to continue. The ENTER key is easy to find when 
you are really ready to continue, but doesn't leave the entire 
keyboard area vulnerable to an accidental key depression. 

Of course, you could trap out the BREAK key and can test 
for ANY key being depressed by PEEKlng at memory location 38FFH 
and testing for a non-zero value (on a Model I or III, or a Model 
4 in the Mod III mode, memory location 38FFH will contain a 
non-zero value if ANY key is currently being depressed) but you 
may still experience undeslred side effects. In my opinion, it's 
better to specify which key to press to continue!] 

PROFILE 4 PLUS PATCHES 
compiled by Lewis E. Garrison 
(This article is reprinted from READY, the newsletter of the 
Central Alabama Microcomputer Society.] 

When using the "?" to display the value of a sort field in the 
title line when printing reports in PROFILE 4 PLUS, you get 
incorrect values and. page breaks. To correct, apply the following 
patches to the PROFILE 4 PLUS Runtime diskette: 

PATCH EFCA/CMD (X'61BE'=00 00 00) 
PATCH EFCA/CMD (X'61C4'=C3 E2 61) 
PATCH EFCA/CMD (X'61D3'=CA DA 61) 
PATCH EFCA/CMD (X'61D9'=C9 El C3 9C 62 00 00 00 00 CC A4 

62) 
PATCH EFCA/CMD (X' 61 EC '=00) 
PATCH EFCA/CMD (X'61F0'=CC) 
PATCH EFCA/CMD (X'61F3'=CD 40 6F) 
PATCH EFCA'/CMD (X'62E3'=FE 00) 
PATCH EFCA/CMD (X'6F40'-2A CD 52 23 22 CD 52 CD C7 61 21 

95 7D C3 F6 61) 
PATCH RM/CMD (X'707E'=3031) 

Apply the following patch to the PROFILE 4 PLUS Creation diskette: ^^. 

PATCH CM/CMD (X'707E'=3031) " i v 

After applying these patches the version will be 01.00.01. 

When deleting records in PROFILE 4 PLUS, multiple deletions 
may occur. Also, while in Inquire, Update, and Add, pressing a 
number to go to another screen will send you out to TRSDOS. 
Also, using the SHIFT® does not copy all 255 characters from one 
record to another while in the Add mode. Apply the following 
patches to the PROFILE 4 PLUS Runtime diskette: 

PATCH EFC9/CMD (X'89C2'=2A 82 8B 2B 22 82 8B 3E FF 77 00 

B7 C9) 
PATCH EFC9/CMD (X'8C68'=FF 03) 
PATCH EFC9/CMD (X'F8C5'=C3 97 FC) 
PATCH EFC9/CMD (X'FC96'=C9 El Dl 2C 7D FE 50 C2 C8 F8 24 

2E 00 C3 C8 F8) 
PATCH RM/CMD (X'707E' =3032) 

Apply this patch to the Creation diskette: 

PATCH CM/CMD ( X ' 707E ' =3032 ) 

After applying these patches, the version will be 01.00.02. 

Extended math calculations in PROFILE 4 PLUS may add one 
field to another field that contains a math formula even though the 
first field is not in the formula. Apply the following patches to a 
copy of the Runtime diskette: 

PATCH EFC9/CMD (X'6FF0'=21 3B 88 3A 4D 8A 85 6F C9) 

PATCH EFC9/CMD (X'8A04'=CD F0 6F) 

PATCH EFC9/CMD (X'8A23'=CD F0 6F) 

PATCH EFC9/CMD (X'8A3E'=01) 

PATCH RM/CMD (X'707E'=3033) 

Apply the following patch to the Creation diskette: Wf) 

PATCH CM/CMD (X'707E'=3033) 

After applying these patches the version will be 01.00.03. 
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BASIC PROGRAM VARIABLE NAMES LISTER 

by Bob Koehler 

R.D. *4, Box 174, Hopewell Junction, New York 12533 

VARLST will list, on the screen, the names of all of the 
variables In a BASIC program residing In RAM. They will be 
listed In two groups: arrays and single-values. Any type 
designators used In the mums, (! # $ X), will be Included with 
those names. The names of variables defined with a DBF 
statement, or those defaulted to single-precision, will not have 
them. 

It Is designed to be loaded Into upper, protected, memory. I 
chose the starting address shown, so that It will fit In with a 
group of other utilities that I use In conjunction with BASIC 
programming on my Model m. However, it can be assembled Into 
any convenient location by changing the ORG address, (which Is 
the entry point to the program). The OBJECT code occupies )t69 
bytes, and an additional 512 bytes, for storage buffers, must be 
provided at the end, for a total of 1181 bytes. (Before 
assembling, disk system users should delete line 324, and change 
line 325 to: 

00325 BACK JP 402DH 
to return to DOS after program Initialization or execution.) 

You may execute the program from within a BASIC program, 
or in the Immediate Mode, with the command: HANB1. It is 
compatible with either cassette- or disk-based systems. If NAME 
Is not immediately followed by an exclamation point, the normal 
response will occur: (L3 Error for cassette, or the DOS routine 
for disk). The procedure used to accomplish this was described 
by Hardin Brothers In his column, The Next Step, In the January 
1985 issue of 80 Micro, titled: Teaching Old Basic New Tricks. 

I have tried VARLST on a number of my own BASIC programs, 
and it performed correctly. If anyone runs across any bugs while 
using it, I would like to know about them. 



if 



41BE 

osf 

E25F 

aa 

E245 
E248 
E26B 
E24E 
E24F 
EZ70 
E272 
E274 
E27S 
EZ78 
E27B 
E27C 
EZ7F 
E28Z 
E283 
E284 
E2B9 
E28C 
E28E 
E» 
E290 
EZ71 
E292 
E293 
E29S 

tm 

E29B 
E29C 
£290 
E2A0 
E2A1 
E2A3 
E2A5 
E2A7 
E2A9 
EZM 
E2A£ 



2ABF41 

2274E2 

214EE2 

228F41 

C3B1E4 

FS 

7E 

FE21 

2804 

Fl 

emu 

Z1FCE4 

2B 

22F5E6 

2160ES 

2B 

22F7E4 

01F401 

21FCE4 

1421 

72 

a 
m 

78 

BJ 

ZfF? 

CDB7E4 

2AA440 

28 

23 

C0BBC4 

7E 

FEW 

2639 

FE6B 

28% 

FE88 

CAZFE3 

FE22 



00005 

mv imns 

HM7 
00008 SETUP 



01001 i VARIABLE NME LISTER - 

MM2 .BY BOB KOEHLER 

00003 iR.O. M> BOX 174. LAKE 

iHOPEtai JUNCTION. NEU 
iRELEASEO TO THE PUBLIC 

EOU 416EH 

ORG 57751 iNAY BE 

LO HL)(NAK£+1) 

LD (ORIGM).HL 

LO HL.START 

LO (NAHEH).HL 

JP BACK 

PUSH AF 

LD A.IHL) 

CP '!' 

JR Z.NOV 

POP Af 

JP »-l 

LD HL.AR8UF 

DEC HL 

LD (AREND)iHL 

LD HL.SNBUF 

DEC HL 

LD (SNENOMt 

LD BC.S00 

LD HL.ARBUF 

LD O.20H 

LD (HL).D 

INC a 

DEC BC 

LD A>B 

OR C 

JR NZ.LOOP 

CALL LINBEG 

LO HL.(40A4H) 

DEC HL 

INC HL 

CALL CRCT 

LO A»<HL) 

CP B9H 

00041 JR 2.READ 

NI42 CP 8BH 

00043 JR Z.REAO 

mm cp bbm 

IN4S JP Z.OATA 

00044 CP Z2H 



Mflf 

Mill 
00112 

00013 START 
MI14 

00015 
00014 

00017 
ma qrig 
mil not 
ma 

00021 
00022 

ma 

(M24 

ma 

mm 

00027 loop 

ma 

mm 

mm 

mix 

mm 

mm 

mm 

00035 

mm 

00037 SRCH 
00038 

mm 



(VARLST) 

IMLTONROAO 

YORK 12533 

DOMAIN 12/23/85 

iAOOR. OF 'NAME' VECTOR 

RE-ASSEHBLEO ANYWHERE 

iGET ORIG. ADDRESS 

iSAVE IT 

iGET NEU ADDRESS 

iSUBST. NEU FOR ORIG. 

.60 TO BASIC 'READY' 

iSAVE STATUS FLAGS 

iGET VALUE 

iTHIS ROUTINE? 

iYES 

iELSE RECOVER STATUS 

;G0 TO ORIG. ROUTINE 

iSET BUFFER BOUNDARIES 



iENPTY BUFFERS 



iZEROCHAR. COUNTER 
iSTART ADOR OF BASIC PROG 



[INCREMENT CHAR. COUNTER 
iGET CHARACTER 
i INPUT? 

I READ? 

iDATA? 

iOUOTATION HARK? 



E2BI CC04E2 


IM47 


CALL 


ZiOUOTE 


iSKIP ANYTHING IN QUOTES 


E2B3FE05 


00048 


CP 


I05H 


[EQUALS SIGN? 


E2B5CA3CE3 


tmi 


JP 


Z.EQUAL 


iGET THE NAME 


E2BBFE00 


mmmsKJ 


CP 





iLOOK FOR END 


E2BA26I2 


Mf5i 


JR 


Z.END 


iENO OF LINE OR PROGRAM? 


E2BC18DE 


NI52 


JR 


SRCH 


iKEEP GOING 


E2BE23 


#153 END 


INC 


HL 




E28F23 


*K54 


INC 


HL 




E2C0 23 


00055 


INC 


HL 


iENO OF PROG. AOOR.? 


E2C1 E5 


00054 


PUSH 


HL 


iSAVE ADDRESS 


E2C2E8 


*N57 


EX 


OE.HL 


iNOtf IN OE 


E2C3 2AF940 


mmttU 

Bw30 


LD 


HL.I40F9H) 


iE.O.P. ADDRESS HERE 


E2C4 37 


mm 


SCF 






E2C7 3F 


mwUJ 


CCF 




'.ZERO CARRY FLAG 


E2C8E052 


Mil 


SBC 


HL.OE 




E2CAE1 


ma 


POP 


HL 




E2CBCA50E4 


ma 


JP 


Z.PRINT 


SEND OF PROGRAM 


E2CECDB7E4 


MH4 


CALL 


LINBEG 


iZERO CHAR. COUNTER 


E2D123 


NH5 


INC 


HL 


ISKIP LINE t'S 


E2D2 16CB 


00044 


JR 


SRCH 


iENO OF LINE - CONTINUE 


E2D4 23 


00047 QUOTE 


INC 


HL 




E2D5 C0BBE4 


00048 


CALL 


CRCT 




E208 7E 


tmi 


LO 


A.(HL) 




E2D9FE22 


mm 


CP 


2ZH 


iLOOK FOR CLOSE QUOTE 


E20BC8 


00071 


RET 


Z 


iFOUNO IT 


E20C18F4 


00072 


JR 


QUOTE 


iKEEP LOOKING 


E20E23 


M73REA0 


INC 


HL 




E20F7E 


00074 


LD 


A.(HL) 


iNEXT CHARACTER 


E2EIFE2I 


fN7S 


CP 


20H 


iSPACE? 


E2E2 2BFA 


00074 


JR 


Z.READ 


.SKIP IT 


E2E4FE22 


00077 


CP 


22H 


iOUOTATION MARK? 


E2E4 200O 


0*78 


JR 


NZ.CONTIN 


iNO 


E2E8CD04E2 


00079 


CALL 


QUOTE , 


iSKLP ANYTHING IN QUOTES 


E2EB23 ' 


00080 NXT 


INC 


HL 


iNEXT CHARACTER 


E2EC7E 


00081 


LD 


A.(HL) 




E2EDFE3B 


00082 


CP 


3BH 


iSEHICOLON? 


E2EF28FA 


•1083 


JR 


Z.NXT 


iSKIP IT 


E2F1FE2I 


000B4 


CP 


20H 


i SPACE? 


E2F3 28F4 


oaaaw&C 

WvWR 


JR 


Z.NXT 


iSKIP IT 


E2F5E5 


00084 C0NT1N 


PUSH 


HL 


iSAVE 1ST CHAR. ADDRESS 


E2F4 010000 


00087 


LD 


BC.0 


iSETCHAR. CT. t VAR TYPE 


E2F9 7E 


N08BGETNN 


LD 


A.(HL) 




E2FAFE2C 


0008? 


CP 


ZCH 


iCOHM? 


E2FC2B12 


mm 


JR 


Z.SAVE 


iENO OF NAME 


E2FEFE3A 


00091 


CP 


3nH 


i COLON? 


E300 280E 


00072 


JR 


Z.SAVE 




E3I2FEN 


00073 


CP 







E304 280A 


00094 


JR 


Z.SAVE 


iENO OF LINE 


E3I4FE28 


00095 


CP 


26H 


iOPEN PARENTHESIS? 


E30B 2814 


M09& 


JR 


Z.ARYNM 


ilT'S AN ARRAY 


E30A04 


00097 


INC 


B 


iPART OF NAME 


E3CB 23 


00098 


INC 


HL 




E3fC16EB 


00099 


JR 


GETNH 


iGET NEXT CHARACTER 


E30E fEfll 


00100 ARYNH 


LD 


C.l 




E31I El 


00101 SAVE 


POP 


HL 




E3U2B 


00102 


DEC 


HL 




E312E5 


00113 


PUSH 


HL 


ISAVE AGAIN 


E313 CD74E3 


00104 


CALL 


CLRBF 


iSTORE IF NOT DUPLICATE 


E314 El 


00105 


POP 


HL 




E317 23 


00104 LOOP? 


INC 


HL 




E318 7E 


00107 


LO 


A.(HL) 




E319 FE2I 


00108 


CP 


20H 


iSPACE? 


E31B 2BFA 


00109 


JR 


Z.L00P7 


iSKIP IT 


E31DFE2C 


00110 


CP 


ZCH 


iCOHMA? 


E31F 260B 


00111 


JR 


Z.COHHA 


iGET NEXT NAME 


E321 FE3A 


00112 


CP 


3AH 


i COLON? 


E323 CA9CE2 


00113 


JP 


Z.SRCH 


iCONTINUE SEARCH 


E324FEM 


00114 


CP 





iENO OF LINE? 


E328 2894 


00115 


JR 


Z.ENO 


iENO OF PROGRAM? 


E32A16EB 


00114 


JR 


L00P7 


iKEEP LOOKING 


E32C23 


00117 COMMA 


INC 


HL 


iSKIP COMMA 


E3ZD1BC4 


00118 


JR 


C0NT1N 


iGET NEXT NAME 


E32F23 


0011? DATA 


INC 


HL 


iSKIP OVER ALL DATA LINES 


E330 7E 


00120 


LD 


A.(HL) 




E331FEM 


00121- 


CP 







E333 28B7 


00122 


JR 


Z.END 


iENO OF LINE 


E335FE22 


00123 


CP 


22H 


•.QUOTE? 


E337 CCD4E2 


00124 


CALL 


Z.QUOTE 


iSKIP ANYTHING IN QUOTES 


E33A 18F3 


00125 


JR 


DATA 


.-KEEP LOOKING 


E33CE5 


00124 EQUAL 


PUSH 


HL 


iSAVE ADDRESS 


E330 010000 


00127 


LO 


BC.1 


iB COUNTS CHAR'S IN NAME. 



33 



841 7E 
&42FE29 
1K4ZMF 
I44C0C2E4 
tJWWl 
OU ZB 
434C CDC2E4 
CMfTE 
<35*FE28 
f&52 20F7 
054 ZB 
ta»CDC2E4 
,fcM3AFBE4 
□SB FEN 
050 2B1I 
E35F7E 
E340FE20 
E342 280B 
E344FE3A 
E344 2B07 
E348FE5B 
E34A3003 
E34C0* 
E34D1BES 
E34FCD74E3 
: E372E1 
€373 C39CE2 
E374 23 
'E377 7E 
E378FE41 
, E37A 06 
B7BFE5B 
E370M 
E37E2B 
E37F3E20 
E3B132F0E4 
£384 3ZF1E4 
E3B7 32F2E4 
r E3BA3EH 

E3BC32F3E4 
; E38F32F4E4 
E392 23 
E393 7E 
1 E394E5 
E39S UF0E4 
E398 2AF3E4 
E39B W 
E39C77 
E390 2AF3E4 
E3A0 23 
E3A1 ZZF3E4 
E3A* El 
E3AS 1KB 
E3A7 3E01 
WW 
E3AA2809 
E3AC2AF7E4 

e3afii40E5 

E3B2EB 
E3B3 1BI7 
E3BS2AFSE4 
E3B6 11FCE4 
E3B6EB 
E3BCC5 
E3B0E5 
E3BE05 
E3BF OD21F0E4 
E3C3 0413 
E3C5 ED52 
E3C7 3B0B 
E3C9D1 
E3CAE1 
E3CB22F9E4 
E3CEEB 
E3CF 1857 
E3D1 01 
£302 El 
E303 22F9E4 
E3O4 3E20 
E3DB BE 



((128 

mw 

•MM 

H131 

H132 

N133 

M134 L00P1 

00135 

N134 

••137 

•1136 

00139 NAK2 

0*14*NAHE1 

W141 

•0142 

0*143 

W144 

MU5 

M144 

MU7 

N14B 

00149 

00150 

#•151 

1*152 

001S3 BEGIN 

N154 

MISS 

0(154 CLRBF 

M1S7 

•MSB 

•0159 

ma 

M141 
M142 
(•143 
M144 
N145 
M144 
•0147 
M168 

mvt 

N17«L00P2 

N171 

N172 

•1173 

N174 

(•175 

N174 

((177 

00178 

nit; 

N1BB 

(•181 

M1B2 

M183 

(•184 

NIBS 

(•184 

HIB7 

M1B6 

M189 ARRAY 

(•190 

0(191 

(•192 GO 

(•193 

M194 

HITS 

(•194 

(0197 

•(196 

••199 

M2M 

00201 

0*202 

M203 

(02(4 LOCATE 

(•2(5 

0(2(4 L00P4 

0(2(7 
0(208 



DEC 

LD 

CP 

JR 

CALL 

LO 

DEC 

CALL 

LO 

CP 

JR 

DEC 

CALL 

LO 

CP 

JR 

LD 

CP 

JR 

CP 

JR 

CP 

JR 

INC 

JR 

CALL 

POP 

JP 

INC 

LO 

CP 

RET 

CP 

RET 

DEC 

LO 

LD 

LD 

LD 

LD 

LD 

LO 

INC 

LD 

PUSH 

LO 

LO 

ADO 

LD 

LD 

INC 

LD 

POP 

DJNZ 

LD 

CP 

JR 

LD 

LD 

EX 

JR 

LO 

LD 

EX 

PUSH 

PUSH 

PUSH 

LD 

LD 

5BC 

JR 

POP 

POP 

LD 

EX 

JR 

POP 

POP 

LD 

LO 

CP 



HL 

A.(HL) 

29H 

NZ.NAflEl 

OECCT 

C.l 

HL 

XCCT 

Ai(HL) 

28H 

RZ.L00P1 

HL 

DECCT 

A.(NUKH) 



Z.BEGIN 

A.(HL) 

20H 

Z.BEGIN 

UU 

Z.BEGIN 

SBH 

NC.BEG1N 

B 

NAME. 

CLRBF 

HL 

SRCH 

HL 

A. (HI) 

41H 

C 

SBH 

NC 

HL 

k,m 

(NWUF).A 

(NNBUFH).A 

(HBUFt2).A 

A>( 

(NBPOS)iA 

(NBPOSU).A 

HL 

A.(HL) 

HL 

DEiNHBUF 

HL.(NBPOS) 

HL.DE 

(HL)iA 

HL.(NBPOS) 

HL 

(NBPOS).HL 

HL 

L00P2 

A>1 

C 

Z.ARRAY 

HL,(SNENO) 

DEiSNBUF 

DEiHL 

GO 

HL.(AREND) 

DE.ARBUF 

DE.HL 

BC 

HL 

DE 

IX.NMUF 

B.3 

HL.DE 

C.LOCATE 

DE 

HL 

(URDST).HL 

DE.HL 

FIRST 

DE 

HL 

(UROST).HL 

A.20H 

<a) 



i C HOLDS VARIABLE TYPE 

iCLOSE PARENTHESIS? 
SNOT AN ARRAY 
DECREMENT CHAR. CNTR. 
;IT IS AN ARRAY 

iOECREHENT CHAR. CNTR. 

iOPEN PARENTHESIS? 
iNOT YET 

iTEST THE CHARACTER 
iOECREHENT CHAR. CNTR. 
iTEST FOR BEG. OF LINE 



iSPACE? 
tENDOF NAPE 
iCOLON? 
iENOOFNAHE 
;EM OF ALPHABET 
iOUT OF RANGE 



;IS NAME VALID? 

ifUST BE ALPHA. CHAR. 
iNO - TOO LOU 

iNO - TOO HIGH 

iCLEAR BUFFER 



iBEGINNING OF BUFFER 

iGET CHAR. POSITION 
iSTORE CHARACTER 



iTEST FOR TYPE 
; IT '5 AN ARRAY 



iBUFFER NOT EMPTY 



iENTER NAIC 
[LISTING END 



E309 2831 

E3DBDD7Eff 

E3DEBE 

E30FZB14 
E3E13629 
E3E3 3E20 
E3ESBE 

E3E4 2B19 

E3EB2AF9E4 

E3EB DD21F0E4 (0218 

E3EF (4*3 

E3F123 

E3F2 23 

E3F3 23 

E3F4 23 

E3FS180C 

E3F7I5 

E3F8 2BR 

E3FA23 

E3FBDD23 

E3F0 18DC 

E3FFC1 

E4MC9 

E4*12AF9E4 

E404 0403 



mm 

•0210LOOP3 

M211 

00212 

01213 

M214 

N21S 

0*214 

00217 LOOPS 



01219 
(022* 
•0221 
•0222 

ma 

0(224 

•K25NXTCHR 

0(224 

•0227 

00228 

M229 

(0230 DUPL 

0(231 

(0232NXTNH 

0(233 



E404 DD21FK4 0*234 



E4M18DC 
E40CD5 
E4#0 37 
E40E3F 

E40F2AF9E4 
E412EB 
E413ED52 
E415 23 
E414X 
E417B5 
£418 26(0 
E41A E5 
E416 CI 
E4KE1 
E41DES 
E41E 110400 

E421 19 

E422EB 

E423 El 

E424E5 

E425EDB8 

E427 El 

E428 0104M 

E42B09 

E42CEB 

E420 2AF9E4 



00235 

00234 STORE 

•0237 

00238 

00239 

0(240 

01241 

01242 

0(243 

•0244 

M24S 

•0244 

00247 

0(248 

0(249 

00250 

00251 

0*252 

0*253 

00254 

1*255 

0*254 CONT 

0*257 FIRST 

(•256 

•(259 

M24f 



Hit D021F*E4 M2A1 



E434*4*3 
E434 0D7EN 
E439 77 
E43A0D23 
E43C23 
£430 l(F7 
E43FC1 
E44(EB 
EW1 3EK 
E443 89 
E444 2BB 
£444 22F7E4 
E449 1B03 
E44B22F5E4 
E44EEB 
E44F C9 
E45( CDC9»1 
E4S3 21C9E4 
E454 CD7S2B 
E459 3E0O 
E45B CD3300 
E45E CD3300 
E461 2AF5E4 
E444 UFCE4 
E447 E0S2 
£449 23 
E44A7C 
E44BB0 

34 



0(242 

0*243 L00P4 

(0244 

0*245 

00244 

0*247 

00248 

M249 

(0270 

M271 

N272 

•1273 

(•274 

M27SARYEND 

M274 RTN 

00277 

0*278 PRINT 

•1279 

•KM 

•0281 

(•282 

W2B3 

•0284 

0026S 

00284 

H287 

0(268 

(0289 



JR 

LD 

CP 

JR 

JR 

LD 

CP 

JR 

LD 

LD 

LO 

INC 

INC 

INC 

INC 

JR 

DEC 

JR 

INC 

INC 

JR 

POP 

RET 

LD 

LD 

LO 

JR 

PUSH 

SCF 

CCF 

LO 

EX 

SBC 

INC 

LO 

OR 

JR 

PUSH 

POP 

POP 

PUSH 

LD 

ADD 

EX 

POP 

PUSH 

LOOK 

POP 

LD 

ADD 

EX 

LD 

LO 

LO 

LO 

LD 

INC 

INC 

DJNZ 

POP 

EX 

LD 

CP 

JR 

LD 

JR 

LD 

EX 

RET 

CALL 

LD 

CALL 

LO 

CALL 

CALL 

LO 

LO 

SBC 

(NC 

LD 

CP 



Z.STORE 

A. (IX) 

<*> 

Z.NXTCHR 

C. STORE 

A.20H 

(HL) 

Z.NXTNN 

HL.(UROST) 

lX.NfJUF 

B.3 

Hi 

a 

a 
a 

L00P4 

8 

Z.DUPL 

a 

IX 

LOOM 

BC 



SEND OF LIST 



iCHARACTERS NATCH 
;PUT NEU NAME NEXT 
iEND OF STORED NAME? 

iYES 



a.(UROST) 

B.3 

1X.NMBUF 

LOOPS 

DE 



a.(ywsT) 
DE.a 
a.oE 
a 

A.H 

L 

Z.CONT 

a 

BC 

a 
a 

DE.4 

a.OE 
DE.a 
a 
a 

a 

BC.4 

a.BC 
E.a 

a.(WDST) 
IX.NMUF 
B>3 
A.UX) 

ta). a 

IX 

a 

L00P4 
BC 

OE.a 

A.l 

c 

Z.ARTEH) 

(SNEND).a 

RTN 

(AREND).a 

DE.a 

1C9H 

a.ARHSG 

2B75H 

A.NH 

33H 

33H 

a.(ARENO) 

DE.ARBUF 

a.OE 

a 

A.H 
L 



;G0 FARTHER 



iOUPUCATE NME 



iSEARCN FOR NOT ONE 



iSAVE END AOWESS 

iSETGNRTPUK 

iZERO IT . 

iSTAfT. MM. OF HE* WO. 

;STMT IN DE. EM) M a 

it OF BYTES TO MOVE 



iSKIP IF END OF LIST 
.HOLD IT 
SNQMIN8C 
iEND ADDRESS 
.SAVE AGAIN 



NEW END I«a 

mow IH DE 

iOLO END IN a 

SAVE AGAIN 

;HMX MQN FOR NEW NAME 

iOLD LIST END 



SHEW LIST END IN OE 



iPUT NEU NAME IN TABU 



iGET VARIABLE TYPE 



;IT'S AN ARRAY 
iPUT IN NEU END 



iCLS 

iARRAY HEADING 

SPRINT HEADIN6 

-.LINE FEED 

iEND OF ARRAY LIST 
iBEGINNING 

it OF BYTES IN LIST 




E44C2BI 
E44EE5 
E44FC1 
E470 2A' 
.E473E8 
TE474EO 
E474 3B 
E476CD 
E47BC0 
E47EC0 
E48121 
E484C0 
E487 3E 
E489C0 

emc a 

E46F2/ 
E492 1I 
E495EI 
E497 23 
E498E! 
E499C! 
E49AC 
E49B1I 
E49E2I 
E4A1E 
E4A2Q 
E4A3Q 
E4ASE 
E4A4 C: 
E4A7 
E4A8 2 
E4AB3 
E4A0 
E4MD 
E4BK 
E464C 
E4B7I 
E4BB* 
E4B9I 
4BAC 
AfiBl 
E4BC3 
E4BDC 
£4C(I 
E4C11 
E4C2I 
E4C3: 
E4C4 ; 
E4C7I 
E4C6I 
E4C9i 



E4E1 
E4EZ. 



E4FB 
0044 
(19( 
00(3 
0002 

■Wit 
0002 

0wi 

E25F 



>v r ^B 



ARBUF 
ARYH 
CONT 
DUPL 

GETN» 
OOPI 
DOW 
NBPOi 
NXTa 
READ 
SNENI 
URDS1 



m 



E44C2B08 


00290 


JR 


Z.FEED 


;NO ARRAYS 


E44EE5 


01291 


PUSH 


HL 




E44F CI 


00292 


POP 


BC 


iNOU HERE 


E470 2A2040 


00293 


LD 


Hli(14414) 


{CURSOR LOCATION 


E473EB 


0K94 


EX 


DE.HL 




E474 EOS0 


00295 


LOIR 




iHOVE LIST TO SCREEN 


E474 3E0D 


00294 FEED 


LO 


A.0DH 




E478C033M 


00297 


CALL 


33H 


!3 LINE FEEDS 


E47BCD33N 


00298 


CALL 


33H 




E47ECD33M 


00299 


CALL 


33H 




E481 21E2E4 


0VJ0V 


LD 


HL.SNHSG 


.VARIABLE NAMES HEADING 


E484 CD752B 


00301 


CALL 


2B7SH 


SPRINT HEADING 


E487 3E0O 


00302 


LD 


A.0DH 




E489CD3300 


00303 


CALL 


33H 


it LINE FEEDS 


E46CCD33M 


00Jv4 


CALL 


33H 




E4flF ZAF7E6 


00305 


LO 


HL>(SNEHO) 




E492 114IE5 


. VPJ06 


LD 


DE, SNBUF 




E495ED52 


00307 


SBC 


HLiDE 




E497 23 


HM06 


INC 


HL 




E498ES 


00309 


PUSH 


HL 




E499C1 


00310 


POP 


BC 




E49ACS 


00311 


PUSH 


BC 


.SAVE IT AGAIN 


E49B 1140E5 


00312 


LD 


DEiSNBUF 




E49E2A2040 


00313 


LO 


HL.( 14414) 


iCURSOR LOCATION 


E4A1 E5 


00314 


PUSH 


HL 


.SAVE CURSOR LOCATION 


E4A2EB 


00315 


EX 


DE.HL 




E4A3EDB0 


00314 


LD1R 




iHOVE LIST TO SCREEN 


E4A5E1 


00317 


POP 


HL 


iORIG. CURSOR LOCATION 


E4A4 CI 


0031B 


POP 


BC 


i* OF BYTES IN LIST 


E4A7 09 


00319 


ADD 


HL.BC 


iENO OF LIST 


E4A8 222040 


00320 


LD 


( 14414), HL 


i RELOCATE CURSOR AT END 


E4AB3E0D 


00321 


LO 


Ai0DH 




E4ADCD33M 


00322 


CALL 


33H 


iLlNE FEED 


E4B0D1 


00323 


POP 


DE 


.'RESTORE STACK 


E481 011B1A 


00324 BACK 


LD 


BC.1A18H 




E4B4C3AE19 


00325 


JP 


19AEH 


iBACX TO BASIC READY 


E4B7 0B 


00324 L1NBEG 


EX 


AF.AF' 




E486AF 


00327 


XOR 


A 




E4B9 06 


00326 


EX 


AF.AF- 




^£4BAC9 


00329 


RET 






i4BB0B 


00330 CRCT 


EX 


AF.AF' 




E48C3C 


00331 


INC 


A 




E4BD 32FBE4 


00332 


LD 


(NUHCH). A 




E4C0 08 


00333 


EX 


AF.AF' 




E4C1 C9 


00334 


RET 






E4C2 08 


00335 DECCT 


EX 


AF.AF' 




E4C3 3D 


00334 


DEC 


A 




E4C4 32FBE4 


00337 


LD 


(NUHCM.A 




E4C7 06 


00338 


EX 


AF>AF' 




E4C8C9 


00339 


RET 






E4C9 4C 


00340 ARHSG 


DEFH 


'LIST OF ARRAY VARIABLES'' 


49 S3 54 20 4F 44 20 41 52 52 41 5? 20 54 41 52 




49 41 42 4C 45 53 3A 








E4E1 00 


00341 


DEFB 







E4E2 4C 


00342 SltlSG 


DEFH 


'LIST OF SINGLE VARIABLES'' 


49 53 54 20 4F 44 20 53 49 4E 47 4C 45 20 54 41 




52 49 41 42 4C 45 53 3A 







E4FB00 

0044 

0190 

0003 

0002 

0002 

0002 

0002 

E25F 



00343 

00344 ARBUF 

00345 SNBUF 
00344 NNBUF 

00347 NBPOS 

00348 AREND 

00349 SNENO 

00350 URDST 

00351 NUHCH 
00352 



DEFB 
DEFS 
OEFS 
DEFS 
OEFS 
DEFS 
DEFS 
DEFS 
OEFS 
END 




100 

400 

3 

2 

2 

2- 

2 

1 

SETUP 



00000 TOTAL ERRORS 



ARBUF E4FC 

ARYNH E30E 

CONT E427 

OUPL E3FF 

__ GETNH E2F9 

j^UXJPl E34B 

■\ L 0OP4 E434 

NBPOS E4F3 

i NXTCHR E3F7 

READ E2DE 

SNENO E4F7 

URDST E4F9 



AREND E6F5 

BACK E4B1 

CONT IN E2F5 

END E2BE 

GO E3BC 

L0OP2 E392 

LOOP7 E317 

'NNBUF E4F0 

NXTNH E401 

RTN E44E 

SNMSG E4E2 



ARHSG E4C9 

BEGIN E34F 

CRCT E4BB 

EQUAL E33C 

L1NBEG E4B7 

LOOP3 E30B 

NAME 418E 

NOU . E278 

OR1G E275 

SAVE E310 

SRCH E29C 



ARRAY E3B5 

CLRBF E374 

DATA E32F 

FEEO E474 

LOCATE E3D1 

L00P4 E3D3 

NAME1 E355 

NUHCH E4FB 

PRINT E450 

SETUP E2SF 

START E24E 



ARYEND E44B 

COMMA E32C 

OECCT E4C2 

FIRST E428 

LOOP E2BC 

LOOPS E3E8 

NAME2 E354 

NXT E2EB 

QUOTE E2D4 

SNBUF E540 

STORE E40C 



NO MORE MODEM CAIX INTERRUPTIONS! 
by Jack Decker 

Have you ever been in the process of downloading a long file 
from CompuServe or a long distance BBS, and just as the last part 
of the file was being downloaded, you were knocked off the line by 
someone picking up an extension telephone? No, the solution is not 
to break the arm of the person who picked up the phone, nor to 
toss all the extension phones out the window (though you may have 
felt like both at the time). What you need is a privacy adapter. 
Install one on every phone in your home and no one can interrupt 
your modem calls. As a bonus, no one can listen in to your private 
calls from an extension. There is one drawback - you can't pick 
up a phone and yell at your teenage daughter to get off of her 
bedroom extension phone so you can make a call (unless you have 
a phone that does not have a privacy adapter installed). 

The privacy adapter basically operates on telephone line 
voltage. When no phones are in use, the line voltage is about 48 
volts D.C. However, when a phone is picked up, line voltage drops 
to about six volts. The privacy adapter takes advantage of this 
situation. When a phone is first taken off the hook, the privacy 
adapter (which Is wired in series with the phone) will not make the 
connection to the phone line unless the higher on-hook voltage is 
present. 

Here's the circuit, with a few warnings and other information 
first: 1) Don't laugh at the diagram too hard, I'm not a hardware 
hacker. I built two of these from junkbox parts and they both 
worked. If someone would care to re-draw this in correct 
schematic diagram format, I'll publish it in a future Issue. In the 
meantime, this diagram should sufficient for all true hardware 
hackers to figure it out. 2) If you build this and somehow manage 
to louse up your phone line or offend your local phone company (or 
do any other mayhem), I am not responsible. This circuit should be 
assumed to be buggy, and probably has a serious design flaw that 
someone more knowledgeable than I will immediately point out. All 
I know is that it worked for me, and if you build It you should 
consider It an experimental circuit and test it carefully before 
putting it on an important telephone line. Also, you should check 
with your phone company to find out If (and under what conditions) 
you are permitted to attach a user-constructed device to your 
telephone line (this last sentence is included to keep me out of 
legal hot water). 3) This adapter may be installed inside the 
phone, or anywhere along the phone line in series with the phone 
(break the connection of either the red or the green line wire and 
insert this In series). You need one for each phone that needs to 
be restricted from accessing a line that is already in use. 4) 
There may be better ways to do this, and I am open to suggestions. 
As I have stated, I built this from available junkbox parts, which is 
why I cannot give exact part numbers. 



1?£CT!FieR 



SCR 




ZEMDETR. 
T>'0 DE- 



PARTS LIST: 

Bridge Rectifier (four silicon diodes wired in a bridge 
rectifier configuration may also be used) rated 1 amp at 400 PIV or 
greater. 

Silicon Controlled Rectifier, rated 1 amp at 400 PIV or 
greater. 

Zener Diode (lowest amperage unit you can get should be 
okay). Anything from 9 through about 24 volts should work. If the 
phone will break into a conversation in progress on another phone, 
use a higher voltage. If the phone will not access the line at all 
and you have used a fairly high voltage unit, try a lower voltage. 




Call IhgMEWffASBBS 
(517; 482-99' 



300/ 1 200 BAUi 
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INSTALLING' memdisk as the system drive 

IN LESS THAN 40 SECONDS 
by Ronald A. Chill - Brooklyn, New York 

[This article Is reprinted from THE INTERFACE newsletter of 
the San Gabriel Valley TRS-80 Users Group.] 

1. Initialize MEMDISK as drive 2. 

SYSTEM (DRIVE=2,DRIVER="MEMDISK") 

A) Which type of allocation ? D 

B) Single or Double Density ? D 

C) Do you wish to Format it ? Y 

2. Move all system files to MEMDISK. 

BACKUP S$/SYS:0 :2(S,I) 

3. REMOVE SYSO/SYS and SYS13/SYS from MEMDISK. they are not 

needed. 

REMOVE SYS0/SYS.LSIDOS:2 
REMOVE SYS13/SYS.LSIDOS:2 

4. MOVE QFB6/CMD TO MEMDISK 

The file QFB6/CMD can be found on Radio Shack's TRSDOS 6.2 
Utilities disk, catalog #26-315. This file is a QUICK FORMAT and 
BACKUP utility which doesn't require the files FORMAT/CMD or 
BACKUP/CMD to copy a disk. 

COPY QFB6/CMD:0 :2 

5. BUILD a file called NEWDRIVE/JCL as follows from DOS READY: 

BUILD NEWDRIVE:2 

SYSTEM (DRIVE=2,DRIVER="MEMDlSK") 

D 

D 

Y 

BACKUP :1 :2 

SYSTEM (DRIVE=2,WP) 

SYSTEM (SYSTEMS) 

(press the BREAK KEY) 

6. BUILD a file called OLDDRIVE/JCL as follows from DOS READY: 

BUILD OLDDRIVE:2 

SYSTEM (DRIVE«2,DRIVER="MEMDISK") 

D 

D 

N 

SYSTEM (DRIVE=2,WP) 

SYSTEM (SYSTEM=2) 

(press the BREAK KEY) 

7. CREATING A BACKUP COPY OF MEMDISK: 

Place a blank disk in drive 1. 

FORMAT :1(Q=N,ABS) 

QFB6 :2 :1 

COPY DIR/SYS.LSlDOS:2 :1 

You are creating an exact copy of the 14 tracks found on 
MEMDISK. If you look at the DIRectory of drive 1, before and 
after running QFB6/CMD, you will NOT see any changes. In order 
to find the DIRectory we fool TRSDOS by copying the MEMDISK 
DIRectory to the normal DIRectory location, track 20. The system 
in turn is fooled into thinking that the disk in drive 1 is ONLY 14 
tracks. The disk created in drive 1 has two DIRectories, one for 
use by MEMDISK and one used by the system on track 20. If you 
have a disk zap utility, take a look at both tracks 1 and 20 to 
convince yourself. 

USING NEWDR1VE AND OLDDRIVF. 

When you want. MEMDISK to be installed as the SYSTEM, place 
the 14 track disk in drive 1, and type the following from DOS 
READY: 

DO = NEWDRIVE 

If it becomes necessary to RE-BOOT the SYSTEM and the 
second bank of 64K of memory was not used you can restore 
MEMDISK as the SYSTEM in even less time by typing: 

DO = OLDDRIVE 



One final note, this paper talks about installing MEMDISK as 
drive 2 Initially. If you have more than a two drive system then 
change all references to drive 2. For a four drive system, all 
references to the 2 should be changed to a 4. Remember that 
when MEMDISK becomes the system, drive becomes the drive ^^ 
number that was formally used by MEMDISK. i^, 



TIDBYTES ON VISICALC 

[Reprinted from the K.C. South Computer Club newsletter.] 

VislCalc users with Model I/III have the ability to change 
printer format from within the VisiCalc program. This feature, 
although documented in the Model HI VislCalc manual. Is obscure in 
its usage and syntax. If you have a compressed mode (16.5 cpi) on 
your printer, you probably want to take advantage of the extra 
columns that can be produced in this mode. You can set your 
printer parameters to the compressed mode before loading VislCalc 
and when you PRINT, get condensed type output, OR, here is how to 
do it from within the VisiCalc program. 

Type /PP" (don't omit the quote character) which will give 
you the prompt, "Setup or ENTER". Now press the <SHIFT> and <•> 
at the same time. A caret will appear on your Model m Edit line; 
Model I users will see a right arrow. Type H1B (H indicates that a 
hex value will follow, IB is the hex value for an Escape <27 
decimal>). Press <SHIFT> <®> again, and your caret or right arrow 
wlU appear again. Now type H50 and <ENTER>. You are prompted 
for the lower right cell designation for the print. Either type the 
cell you want followed by <ENTER>, or move the cursor to the cell 
with the arrow keys and then press <ENTER>. 

Your output should be In the compressed mode if you are 
using an Epson printer. If you have some other printer, substitute 
the value you need to accomplish this task for the second hex 
value (the H50). This information can be found in the section of 
your printer's manual that discusses software control codes. 
Multiple commands can be entered by this method by continuing the 
sequence of <SHIFT> <®> followed by the next series of hex 
characters. 



MODEL 4 TRSDOS 6 WRITE PROTECT ^ 

by Dick Rechlicz ^ 

[This article Is reprinted from the Milwaukee Area TRS-80 
User's Group (M.A.T.U.G) newsletter.] 

When running business applications programs, we have a long 
standing practice to software write-protect the diskettes In our 
drive zero. We've experienced a few instances when a 
wrlte-protect tab has been installed on a diskette, yet the 
computer has written to that disk - or killed files - without our 
first removing the tab. [NORTHERN BYTES editor's note: This Is 
impossible with most brands of disk drive - the hardware simply 
won't permit it - but I suppose that there may be the oddball drive 
that works differently. Also, power line glitches can sometimes do 
strange things, even to a write-protected diskette.] 

While anything is possible, we've had no problem using the 
DOS to write protect the diskette. This practice is commonly 
referred to as "software" write-protecting. 

With DOSPLUS IV, the procedure to software wrlte-protect 
drive zero as a default is relatively simple. Configure a disk, save 
the configuration file to another disk (on another drive), then copy 
the configuration file back to the original disk. 

Recently when transferring to the TRSDOS 6 disk operating 
system, we quickly learned that - supposedly - it is not possible to 
write-protect drive zero and have it "SYSGEN" upon booting. We 
contacted Logical Systems. Inc., for help - and they provided the 
answer. We'd like to share that answer with you. 

Locate the CONFIG/SYS file with DISKDUMP (or whatever 
monitor you're accustomed to using). Find the following sequence: 

01 52 00 43 C3 ?? ?? 44 

Change the "44" to "C4" and you've write-protected drive zero 
as a default condition. 

If you should want to write to that disk, it is possible to 
bypass SYSGEN by pressing and holding <ENTER> when booting. Org 
use the SYSGEN command: J 

SYSGEN (DRIVE=0, WP=N) 
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SPEED UP YOUR PULSE-DIAL TELEPHONE 
by Jack Decker 

Okay, so tbia isn't exactly computer-related, but it might help 
enhance your standing with your wife (or others who see no 
practical value in your hardware tinkering). 

Some of the new electronic telephones have pushbutton 
dialing but produce dial pulses rather than touch tones. This 
permits you to have the convenience of pushbutton dialing in areas 
where tone dialing is not available. However, many people buy 
these phones even In areas where tone dialing is available. The 
reason is simple - the telephone company charges extra to provide 
tone dial service on a telephone line (even though, in many areas, 
it doesn't cost them one cent more to provide the service since the 
tone decoders are part of their central office switching equipment 
anyway). 

If you have such a phone, you may be able to speed up the 
pulse dialing speed and be able to dial numbers at near tone-dial 
speed, although your phone will still actually be producing the 
cheaper dial pulses. The big "IT is whether your local telephone 
exchange can handle the faster speed. 

If your phone Is connected to an electr onic or to a crossbar 
central office, it should work. If, on the other hand, your phone is 
connected to an older-style !tejt-bv--step_ or to a panel central 
office (the latter are nearly extinct), you are pretty much stuck 
with the slower speed. How do you tell? If you're on friendly 
terms with the phone company, they might tell you. But here are 
some clues that, while not 100% accurate, can help you determine 
what type of office you're on (note: Custom Calling Services refer 
to services such as Call Waiting, Call Forwarding, and Three-Way 
Dialing): 

1) Step-by-step: You will hear the noise of stepping relays 
(sounds similar to a playing card stuck in bicycle spokes) when 
dialing numbers, after some (but not all) digits are dialed. You may 
also get a relatively high percentage of wrong numbers or other 
phone problems on this type system. Custom calling services will 
not be available, but equal access to alternate long distance 
carriers and international direct dialing may be available. If you 
are serviced by a non-Bell phone , company, and/or live in a rural 
area, the chances of you being on this type of system are much 
higher. 

2) Crossbar: You will NOT hear relay noise while dialing 
(except as very low level background static), but should hear two 
or more clicks immediately after dialing the last digit. Custom 
calling services will not be available. Your exchange will be one 
of the last in your area to get equal access, and probably does not 
have International direct dialing (crossbar can't handle a varying 
number of digits in a phone number without added equipment). You 
may occasionally get a slow response on a dial tone, but rarely will 
you get a wrong number (when dialing In your same exchange). 

3) Electronic: You will NOT hear relay noise while dialing 
(except as low-level static) but should hear two clicks after dialing 
the last digit of a phone number. These two clicks will be almost 
Instantaneous after dialing another number on your exchange, but 
may be delayed by a few seconds when dialing long distance, or 
into an older exchange or a large business with direct inward 
dialing to extensions. You should almost always get dial tone 
within a fraction of a second after picking up the phone. Custom 
calling services, international direct dialing, and equal ("dial 1") 
access to alternate long distance carriers will all be available. 

If you're still not sure, try the modification and if it doesn't 
work (you can't dial out or start getting lots of wrong numbers), 
you can always put everything back as it was. ' 

How do you do It? Well, first you open up the phone in 
question and write down the manufacturer and part Identification 
on each and every integrated circuit inside the phone (hopefully 
there will only be one or two). You then put the phone back 
together, and contact the manufacturer or the manufacturer's 
representative for data sheets on the Integrated clrcult(s) in 
question. In some cases you will be stopped right here, since some 
IC's bear no Indication of the chip manufacturer. 

But, assuming you're successful, one of the IC's should be 
Identified as a pulse-dialer IC (or something similar). This is the 
one you want. Now check the data sheet and you should find that 
one pin controls the outpulsing speed. If connected to one side of 
the voltage supply, it will cause the chip to outpulse at 10 pulses 
per second (PPS). However, If connected to the opposite side of 
the voltage supply, the outpulse rate will be 20 pulses per second. 
Now, any hardware hacker worth his salt should be able to figure it 



out from that - you Just break the connection to that one pin and 
connect the pin to the opposite voltage. 

You may have a couple of other options, such as lnterdlgital 
pause and/or make/break ratio that are controlled by different 
pins. The make/break ratio should NOT be changed - It usually 
won't make any difference, but if the phone was sold for use in 
the United States or Canada, it should be preset to the correct 
make/break ratio (normally between 58* and 64* "break"), 
lnterdlgital pause Is another story - if it's not already set to the 
shortest value (usually expressed in milliseconds), change it. If you 
find yon get wrong numbers, back off the lnterdlgital pause first, 
since a too-short lnterdlgital pause will sometimes cause problems 
In systems that would otherwise accept the faster dialing speed. 

Now I'll save a few of you the trouble of having to write or 
call for the data sheets. If your telephone contains a Sharp 
LR-40992 pulse dialer IC (as do some of the Conair telephones sold 
by K-Mart and other stores), the pin to change is pin 10 (located 
at the lower right corner of the chip). It is now connected to V- 
(pln 6) and you want to change it to be connected to V+ (pin 1). 
Make sure you do NOT also change the make/break select ratio on 
pin 11 (pins 10 and 11 are tied together in the Conair phones, you 
must break this connection and then reconnect pin 11 to the V- 
supply). 

If you are able to get data sheets for any other pulse dialer 
IC's, why not send me a copy of the pinout information and I may 
publish a follow-up article. 

Some of you modem users may be wondering If you can speed 
up your auto-dial modem In a similar manner. If the modem uses a 
pulse-dialer chip, the answer Is yes, and the procedure is the same. 
However, if the modem dials by operating a line-connect relay, 
you'd probably have to change the stored program within the 
modem's ROM to accomplish this. Again, if any of our readers have 
any information on speeding up the pulse dial rate of a specific 
modem, I'd like to hear about it! 

TRSDOS 6.2 /HLP FILE FORMATS REVEALED 
by Michael R. Johnston 

The following is a description of the format the HELP/CMD 
utility expects /HLP files to be (from bottom to top): 
NOTE: All /HLP files must have an LRL of one. 

1) The last two records have the address of the HELP file 
directory in LSB/MSB format. 

2) Moving to the start of the file directory (this Is what Is 
displayed on the screen when you enter for example, "HELP DOS" 
from TRSDOS READY) you will find each directory entry in ASCH 
FORMAT. The last character of the entry will have bit 7 set as an 
end of entry marker. The two bytes following the entry give the 
starting record number where the help text for that particular 
category can be found. These are also in LSB/MSB format. It is 
interesting to note that the categories MUST be written to the file 
in ALPHABETICAL ORDER! If this is not done, HELP/CMD will fall to 
access ALL entries after the first one that is out of order. They 
WILL however, be displayed in the file directory. One more 
caution; ALWAYS use UPPER CASE letters for the directory entries! 
Failure to do this will result in the same problem as described 
above. 

3) The help text for each individual category within the file 
terminated with the HEX values OD,OD,0D and 0C IN THAT ORDER, 
Within each category the following control codes are used: 

a) The LAST letter of each word that is followed by a space 
may have bit 7 set. This eliminates the need to write the space. 

b) For multiple blocks of spaces the SPACE COMPRESSION 
codes are utilized, I.e. a C0H value will produce ONE space, a C1H 
will produce two spaces etc. 

c) To toggle INVERSE VIDEO on/off a code 7FH is used. The 
first use of the code will toggle it on, the second off and so on. 

An example of a file follows: 

Main text of each category within the file,, terminated 
by: ODH,0DH,ODH,OCH 

The file directory containing each individual category 
with bit 7 of the last character of the category SET, 
followed by the two bytes pointing to the start of the 
Individual category's text. 

The last two bytes of the file, pointing to the start of 
the file directory. 
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And that is about all there Is to it! The hard part of all this 
is the typing involved to MAKE the help files. For those of you 
who hate typing, I have several HELP files that I have already 
created for my system, with more in the works. Just think of being 
able to COMPLETELY CLEAR your desk of those dog-eared manuals. 
For you TRSDOS programmers I have nearly completed a, set of 
machine language reference files, for example; OPCODES/HLP, 
PORTS/HLP, SVCCALL/HLP, etc. If you are interested in obtaining 
these files, send a disk in a mailer with return postage and a self 
addressed mailing label to the following address: 

Michael R. Johnston 

E. Co. 4th Spt. Bn. 

APO New York 09185 

A SAD TALE WITH A HAPPY ENDING 
by Tom Moody 

[Reprinted from Data Important to Members Everywhere 
(DIME), the newsletter of the Northern Illinois Computer Owners 
League (NICOL).] 

I have a few programs that I wrote for the company I work 
for. Most of them are used by several people that just 'love' to 
get into them and 'tinker', then all of a sudden I get a call that 
'the program YOU wrote doesn't work anymore'. Well J got tired of 
this and Model 4 BASIC lets you save programs 'protected' with the 
command! 

SAVE "FILENAME\P 

This is SUPER. Now not everybody can get into the program 
and change it from what I wrote. Now my problems are all gone! 
Well, almost all gone. 

After several months of joy, (no more 'it doesn't work' calls) I 
needed to modify one of the programs myself. No problem, I 
always keep a copy that is not protected. I hunt through piles and 
piles of disks. No copy to be found. Panic time. Wait, be calm 
now, there must be an answer to this dilemma. I thought of 
cutting my wrist but that had one problem, I can't stand the sight 
of blood. Oh well, I guess all that can be done is to write the 
program over from scratch, but that will take days of work and so 
I sat and thought about it for a while. 

The more I thought about it the more I realized there had to 
be a way to get at that protected program after it was in memory. 
So, after a couple of hours with DEBUG looking around in BASIC, I 
came up with a way to do it. 

First type DEBUG (ON) <ENTER> 
Then type BASIC BASIC <ENTER> 

You will now see the DEBUG display on your screen but we 
are not ready to use DEBUG yet so we will continue by typing: 

G<ENTER> 

You will now get the signon-message for BASIC so you can go 
ahead and load your protected program by typing: 

LOAD "filename"<ENTER> 

Now we are going to recover the file so we can list it, save 
it or whatever we needed to do to it. 

Hit the <BREAK> key and you should be back in DEBUG again 

To Un-protect the program in memory we must change the 
byte at address 72CBH to 00. To do this from DEBUG, 

Type H72CB<SPACE-BAR> 

00<SPACE-BAR> 

<ENTER> 

Now we are ready to return to BASIC. Do this by typing 

G<ENTER> 

You should now be able to list your program. I would advise 
you to save it to another filename right away In a normal manner 
before you do anything else. That way if anything goes wrong you 
will not have to do this over again. 

I hope none of you ever have to resort to this procedure, but 
it is nice to know there is a way out if you really need it. 



flpw »nnr/<!vs grip nn<il>HlHi a.a*- 
by Oswald Cooper 
[This article is reprinted from Bits and Pieces, the newsletter 
of The Northeast Computer Club.] 

The file BOOT43/CIM is a replacement boot file for use on 
DOSPLUS 3.50 to be able to boot on the TRS-80 Model 4P in the 
Model III mode without the need to switch disks. 

To create a usable disk, use the following procedure: 

1. SYSGEN a new master disk 

2. Copy the MODELA/III file to the new disk. 

3. Run the DISKZAP Utility. Display Cylinder 0, Sector 1. 
Press "M" to enter modify mode. Type in the following data: 



RELATIVE BYTE 
ADDRESS. 
00' 00 FE 14 3E 
10: 00 21 00 52 
20' 04 24 CD A8 
53 55 7C 07 
FB 47 21 FF 
43 6F 25 2B 
CD 62 43 18 
10 FT 18 D2 
18 FE D? 2C 

05 38 03 C8 
W 38 02 47 
D3 F2 7A 03 
3E 13 CO EE 
80 03 E4 7A 
Fl 01 E4 00 

06 0E 10 FE 



ASCII EflUlVALENT 
FOR REFERENCE ONLY 



C3 32 4? 40 
CD AS 43 20 
43 20 40 7E 
07 07 E6 07 
53 07 CD 82 
10 25 20 05 
FB CD 82 43 
21 F5 43 06 
20 IF E5 21 
E6 5F El CO 
14 7E 07 C7 
F3 3E 81 03 
43 OB F0 0F 
03 F4 08 F0 
ED 41 DB F0 
C? 44 4? 53 



21 E0 43 
5B E5 DD 
2FE6 50 
Z8 07 47 
43 67 CO 
CD 82 43 
67 05 05 
0B7E23 
B6 43 CB 
AB 43 20 
CD AC 43 
F4 57 CB 
3BFB3E 
A3 28 FB 
E6 7C El 
4B 20 45 



22 4A40 
El DO 56 
20 47D9 
AFD0B6 
B2 43 47 
67E9 05 
CD 82 43 
CD 33 00 
A&58 7B 
08 04 76 
C8C5D5 
F2 IE 02 

ee CD ee 

EDA2C3 
Dl CI C9 
52 52 4F 



11 02 
0A1E 
2A16 
07 10 
CD 62 
28 E6 
77 23 
10 F9 
DD% 
DD96 
E5 7B 
0EF3 
43 3E 
03 43 
03 F0 



,.>.2Ii!.C»J3.. 
.I.R..CC....V.. 
.$..Ch~7.PG.*. 

su:.....(.g..... 

.GLS...C9..CG.. 
Cot(.X ...Ca,.(. 
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When finished, press <ENTER> to save the sector to disk. 
Enter BASIC, type in and run the following program: 

5 'BOOT43/BAS 
10 CLS 

15 TOTAL#=0# 

20 OPEN"R",l,"BOOT43/CIM:l",l 
30 FIELD #1, 1 AS A$ 
40 FOR X=l TO LOF(l):GET 1,X 

50 REM PRINT HEX$(ASC(A$)), *j 

55 PRINT USING"\ \";HEX$(ASC(A$)); 
60 TOTAL#=TOTAL#+ASC(A$) 
100 NEXT 
110 CLOSE 

120 PRINT:PRINT TOTAL# 

130 IF TOTAL#<>30360# THEN PRINT "ERROR- 
ELSE PRINT "VALUES CHECK" 

The new boot has also been tested on a Model III and a 
Model 4, and works without problems. 

CONFIGURE HODEMBO TO SUIT YOUR SYSTEM 
by Leonard Yates 
[Reprinted from SYDTRUG NEWS, P.O. Box 297, Padstow, New 
South Wales 2211, Australia.] 

(a) Hard-Configure GRAPHICS ON: Since the Club-80 BBS now 
has graphics capabilities, you nay like to zap your, copy of 
M0DEM80 as follows so that it initializes in the GRAPHICS ON 
node: 

HODEM80/CMD,05,B1 change E6 7F 21 to E6 FF 21 
HODEM80/CMD,28,CB change 4F 46 46 OA to 4F 4E 20 OA 

(Don't forget to reset GRAPHICS OFF if accessing a remote system 

which checks parity.) 

(b) Configuration to Suit the AVTEK Multi-Modem: To set 
high the DTR and RTS signals of the RS-232C serial port; you 
cannot use MODEM80 with an AVTEX Modes unless you sake the 
following changes: 

MODEM80/CMD.04.3D change 55 6D 3E to 55 6C 3E 
MODEM80/CMD,35,D6 change 3E 6D D3 to 3E 6C D3 

(c) Configuration for NEWDOS/80 version 2.0 / Model III: In 
its original form M0DEM80 does not allow use of the option '<C> * 
Accept DOS Contend' when using NEWDOS/80 version 2.0 on a Model 
III. A way of accessing the DIR command is given on page 32 of 
the M0DEH80 nanual; the following method allows all DOS Commands 
to be accessed: 

MODEM80/CMD,12,58H change 3D 28 09 to 3D 20 09 

Note: If you're modifying M0DEM48/CMD or a DUMPed version 
of MODEM80, the relative byte in each ot the above zaps should 
be decreased by 8. For exaaple, byte Bl would become A9, etc. 
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[Thl* (somewhat abridged and edited) article is reprinted from 
The Cursor, newsletter of the K. C. South Computer Club. PLEASE 
NOTE that we at NORTHERN BYTES have not built or tested this 
project, thus we present it with the usual warning that we assume 
NO responsibility if you attempt to build or use this project and 
damage your computer, your printer, or any other part of your 
system.] 

This project provides the materials required and some basic 
construction notes on how to build a printer switch for your Model 
1, 3, 4, or 1000 Radio Shack computer. 

The Supplies required are as follows: 

1. 34 Conductor flat ribbon cable, minimum 3 feet, maximum 
to suit your needs (approximately Mt/foot) 

2. One 34 pin Card Edge Connector ($4.00 at R.S.) 

3. Two 34 pin Socket Connectors ($3.19 each at R.S.) 

4. One 4PDT switch. Can be toggle, rotary, slide or other. 
You may substitute two DPDT switches if you want to (part 
9275-OT, 2 for TO* at R.S.) 

5. One mounting box approx 2-3/4 L x 2-1/8 W x 1-5/8 H 
(approximately $1.50 - BUD »CU 2100A, JMB *T-FTT0 or J-8T0, 
HAMMOND «1411B. etc.) 

Several companies sell printer switches that allow you to 
switch one computer to two different printers. TAB has one 
available at $69.95. HP Signaling at $59.95, and Radio Shack at 
$119.95. They are all reliable products that do their Job well. 

My project of a home constructed switch can save you money. 
This project may not be for everyone, but is NOT difficult and If 
you can use a screwdriver, long nose pliers, and a soldering iron, 
you should have no problems building it. The project will probably 
require about two hours of your time. Materials can be obtained 
from several sources, including Radio Shack. 

Lay the 3' cable out flat and measuring from the right edge, 
mark the cable at ' 6", 12", and 18" with a felt marker pen. See 
Fig. 1. 

Install a 34 pin Socket Connector at lines B and D. Position 
connector B on the opposite side of the cable as connector D. See 
Vlg. 2. Install a 34 pin Card Edge Connector at the open end of 
the cable. See Fig. 2. 

The Red wire in ribbon cable la the #1 wire. Counting over 
from 91, locate and mark wires 921, 25. 28. Recount and Identify 
these wires again to make sure you have the correct ones marked. 



TO 
Computer 
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Use a sharp cutting device such as a utility knife or a single 
edge razor blade and carefully cut through the plastic grove in 
between the 4 marked wires, separating them from the rest of the 
cable. You will separate these 4 wires, each about 5" long, at 3 
locations on the cable as identified in Fig. 1. From line A to the 
left side of Socket B; from the right side of Socket B to line C; 
and from line C to Socket D. 

After separating these wires you need to cut one end free as 
follows: 

1. Cut the 4 wires at the left side of Socket B 

2. Cut the 4 wires at the left of line C 

3. Cut the 4 wires at the left side of Socket D 

The free ends of these 12 wires should be as shown in Fig. 3. 

Fold the cable back on itself as shown in Fig. 4 and dress 
the free end of the 12 wires up through the slots left in the cable 
from the separation of the wires. These 12 ends will be connected 
to the 4PDT switch. 

Connect and solder the 4 wires from line A to the 4 common 
contacts on the switch. Solder the wires from Socket B to one set 
of corresponding make contacts on the switch and solder the last 4 
wires from Socket D to the other set of make contacts of the 
switch. 

Before mounting the switch in the mini-box, check for 
continuity of the switched leads. Use an ohmmeter or other 
continuity checker, one side connected to pin 1 of the Card Edge 
connector and the other side to pin 1 of Socket B. If you don't 
get continuity, operate your switch to the other position. When 
you have established continuity, repeat the test for pins 21, 25, and 
28. Then operate the switch and check these same 4 leads from 
the Card Edge Connector to the other Socket D. 

Mount the Switch in the Mini-Box and the project is 
complete. You will also need to either modify your existing printer 
cables or make up new cables with a connector that will mate with 
the Socket connectors on the Printer Switch you constructed. (If 
you could locate female edge connectors that can be pressed onto 
a ribbon cable and that provide the same plnout as the printer port 
edge connector on your computer, you could use your original 
printer cables. However, this type of connector may be harder to 
come by than the 34 pin socket connectors specified for this 
project. - editor] 

Your cost to construct this switch may vary [you can save 
money by using surplus cables or components if available], and 
could range up to $15-$17 if you purchase the components 
separately. Even at $17, it is still a far cry from the $60 to $120 
commercial versions. 



B 

I 



c 

T" 



I top view 



card 
Ccigc 
tomtccfor 



Connecter 
Computer 



|3M Pi»f Socket C6r»n*a+c.r 



pa BHPi'w 




5ftck«t 
Connector 



L«ad%tc- HPDT 




39 



TABBING PAST 63 ON A MODEL I TRS-80 

(OR PAST 127 ON A MODEL I OR III) 

- by Jack Decker 

Believe It or not, I've seen this old chestnut discussed In a 
couple of exchange newsletters recently. The problem is that on 
most versions of the Model I TRS-80, the BASIC code In ROM Halts 
the maximum argument for the TAB function to 63 - not at all 
adequate for today's printers which can use 132 or more columns. 
Later editions of the ROM change the Halt to 127, where It 
remains throughout the Models HI and 4 (Model III aode). This 
still Bay not be enough for soae of today's wide-carriage 
printers. 

Unfortunately, the newsletters I have read tend to use a 
auch aore coapllcated than necessary approach to solving this 
problea. So, here are five different aethods that permit you to 
utilize TABs up to 255. Use the one that you prefer and that 
will work best In your particular hardware/software 
configuration: 

1) THE USER-DEFINED FUNCTION: Near the start of your BASIC 
program, Insert this line: 

DEFFNAS(N*)=STRING$(N*-PEEK(ie539),32) 
Then use FNA$(n) in place of TAB(n) in any LPRINT statement, for 
example LPRINT FNA$(70) instead of LPRINT TAB(70). This has the 
advantage of working under Model I or III BASIC, using any DOS. 
If you are want your program to be so generic that even tape 
users can run It, simply repeat the function each time it is 
needed instead of pre-defining it - that is, use 
LPRINT STRINC$(n-PBEK(16539),32) to replace each occurrence of 
LPRINT TAB(n) (note that n can be a constant, variable, or 
expression in any of these examples, though you may need to 
enclose an expression in parenthesis when making the conversion). 

2) MACHINE LANGUAGE "PACKED STRING": Near the start of 
your program, place the following BASIC line (note that variables 
ft. X, Y. and Z may be replaced with any valid variable names of 
similar types, and that any or all of these variable names may be 
reused In subsequent lines): 

IB T* - "1234567": X - VARPTR (T$): Y = PEEK (X+l) + PEEK (X+2) 
* 256: POKE Y.231: POKE Y+1.252: POKE Y+2,5: POKE Y*3.43: FOR Z - 
TO 2: POKE Y+Z+4. PEEK (16851+Z): POKE 16851 +Z, PEEK (X+Z): 
NEXT: POKE 16851,195 

The spaces are for readability only, and may be omitted 
with no ill effects. Note that after this line is executed, the 
String "1234567" will be replaced by machine language code, 
therefore, line 10 should not be EDITed and the program 
containing line 10 should not be SAVEd once line 10 has been 
run. The proper procedure is to SAVE the program to disk, then 
RUN the program and then, if any debugging is necessary 
(anywhere in the program), reLOAD the program and start editing. 
If you forget to do this and accidentally SAVE a version of the 
program where line 10 has already been executed, you may wind 
up having to re-enter line 10 from the keyboard. 

This method works under any Disk Operating System, and 
even works for tope users. TAB arguments through 255 are 
permissible after the code in line 10 has been executed. 

Mere's a bit of technical information about this method, for 
those who are interested: The seven bytes of machine language 
code disassemble as follows: 

E7 RST 20H ; Check Number Type Flag 

FC052B CALL M.2B0SH ;Re-evaluate TAB if NTF-integer 

77???? ??? ; Original instruction at 41D3H 

This code is patched into the DOS link at 41D3H (which contains 
only a RET instruction in a cassette -based machine, or a Jump to 
some area of Disk BASIC when a Disk Operating System is used), 
and which is CALLed from the ROM at 2141H during processing of 
the TAB argument. At that point, the TAB argument has already 
been evaluated to a number in the range 0-63 or 0-127 
(depending on the ROM version in use), and the result stored in 
the E register. But If the TAB argument was over the "allowable" 
range (63 or 127) but less than 256, no error message Is given - 
Instead the most significant bits are stripped off to yield a 
result below 64 or 128. However (and this is what makes this 
work), the original TAB argument is still stored as an integer in 
the arithmetic accumulator at 4121H-4122H! 



The reason for the test of the Number Type Flag (NTF) is 
that the DOS link at 41D3H is actually called from two places In 
ROM - it's called at 2141H after evaluating the TAB function, and 
at 2108K while processing commas (used to tab to next print 
column). When called from the former, the NTF will contain a 
value of 2 indicating that an integer was Just processed, and we 
can then make the CALL to 2B05H to re-evaluate the TAB function. 
However, if the DOS link was called from 2108H, the NTF contains 
a value of 3 indicating that; a string was Just processed. In that 
case we simply pass control to the original Disk BASIC link 
without further processing. All of this may make more sense to 
you if you have a commented disassembly of the ROM code to 
follow and/or you have a copy of ay book "TRS-80 ROM ROUTINES 
DOCUMENTED." 

3) PATCH YOUR DISK OPERATING SYSTEM: The idea here Is to 
patch your Disk Operating System as follows: First, use a 
machine language monitor program to find out what Instruction is 
currently stored at the Dis'k BASIC vector at 41D3H-41D5H. Next, 
place the same seven-byte machine language code segment given 
in (2) above somewhere in an unused section of your Disk BASIC'S 
"patch area", making sure that the last Instruction is the same as 
the one found at the Disk BASIC vector at 41D3H-41D5H. Finally, 
we modify the DOS vector at 41D3H-41D5H to Jump first to our 
patched code segment (which will then jump to the original Disk 
BASIC vector). As an example, here are the patches that will 
work with the Model I version of NBwDOS/80 version 2: 

Change BASIC/CMD,15,BE from: 00 00 00 00 00 00 00 

to: E7 FC 05 2B C3 3B 5F 

Change BASIC/CMD.17,84 from: C3 3B 5F C3 

to: C3 B5 66 C3 

Note that this Is an "undocumented" zap, so be sure to keep 
a record of it somewhere in case Apparat issues a zap that uses 
the same area of memory and you have to move (or remove) this 
one. Users of other DOSes may develop similar patches, but you 
are on your own (if you do, why not send it In so we can share it 
with other NORTHERN BYTES readers?). The advantage of this 
method is that It will permit all of your BASIC programs to use 
TABs up to 255 without further modification. The disadvantage is . 
that since the patch is to DOS, you can't very well include it in* 
an application program that is intended to be used by others (who 
may not have a similarly patched DOS). 

4) BUY AND USE MULTID0S: The above-mentioned 
machine-language code segment is already built into MULTID0S - 
no patching required! 

5) PATCH YOUR MODELA/III FILE (MODEL 4P ONLY): This works 
for Model 4P owners only, of course, and is only necessary if you 
have a need to TAB past 127. Simply change the byte that loads 
to 213BH, from 7FH to FFH. In my copy of MODELA/III this byte is 
found at File Relative Sector 33, byte C3. Once again, the 
disadvantage here is that if you're writing a program for someone 
else, you can't assume that their copy of MODELA/III will have 
this patch. 

The bottom line: If you're wanting to be able to use TABs 
up to 265 in your own programs on your own system, one of 
methods 3-5 will probably be best for you. But, if you're writing 
a program for use by others (or if you use many different copies 
of a Disk Operating System, and don't want to patch them all) 
then either method #1 or method «2 should be used. 

I hope this clears up some of the confusion regarding the 
use of wider TABs. As you can see, It is NOT necessary to use a 
30 or 100 byte patch program to be able to TAB past 63! 



REMOVE OR CHANGE PRINTER TIMEOUT IN TRSDOS 6 

To remove the printer timeout capability completely: 
PATCH B0OT/SYS.LSIDOS (D0C,2C=18:F0C.2C=20) 
To increase the time before timeout. 

PATCH BOOT/SYS.LSIDOS (D0C.24-NN:F0C.24=01) 
where NN is some number greater than one. Each count greater 
than one should give you an additional 7.5 seconds. 

These patches originally from — JJkd— , since passed around 
the LDOS SJG on CompuServe. 
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SPIKELESS MAINS SWITCHING 
Hardware Project by Allan Dent 

[Reprinted from the Adelaide Micro-User News, 36 Sturt 
Street, Adelaide. South AUSTRALIA 5000. Although this project 
was designed to work with 240 volt AC power circuits (the norm 
(for household current In other parts of the world), the exact 
same circuitry can be used on 120 volt lines. Just substitute 
"180" wherever you see "240" In the article below.] 

Soon after Moving ay Model I TRS-80 into the world of disk 
drives, I discovered that it had one tremendous disadvantage. If 
I turned off the power to the systea with ay disk still in the 
drive, I sometimes lost all the data on that disk. Needless to 
say I soon learnt to reaove the diskette before powering down. 
The problea is caused by power spikes. These are created by the 
power transforaers being turned off during a high voltage point 
(up to 340V peak) of the 240V AC wavefora. It doesn't happen 
every tiae and when it does, the daaage to the data on the disk 
is sometimes less catastrophic than on other occasions. If the 
head of the drive is over the directory at the instant of 
powering down then the directory track can be corrupted, whereas 
if It is over soae other file, that file could be lost. 
Fortunately, Apparat caae out with Newdos+ and included a utility 
called Superzap. This program, even though in Basic, allowed me 
with the help of Harv Pennington's book TRS-80 Disk And Other 
Mysteries to get into the disk and salvage aost of ay losses. 
Since then, improved versions of this Marvelous original utility 
have aade life even easier in repairing the damage caused by the 
occasional data destroying spike. Reaovlng the disk before 
power down though is the best insurance against having to go 
through the arduous job of recovering the spiked data. 

Even though I trained myself to reaove the disk before 
power down I still had siailar crashes caused by externally 
generated aains spikes. These were virtually eliainated by the 
Installation of a aains filter and metal oxide varistor on ay 
power distribution block. The only problea now was caused by ay 
kids forgetting the power down sequence. Fortunately, they only 
ever crash games disks, and aost of them are backed up on either 
cassette or another disk. I decided to try to overcome this 
problea by tackling the problea at the source, the switchoff 
timing of the mains waveform. 

The project involves 240V mains and this should be kept in 
Bind when wiring up the circuit. The heart of the circuit is a 
eero crossing solid state relay. This is basically an 
electronically controlled TRIAC which does the actual switching 
of the aains current. The input is a current limited infrared 
Light Emitting Diode. This is optically coupled to an infra-red 
photo-transistor connected to a zero crossing detector. This 
construction gives complete electrical isolation between the 
Input LED and the mains circuitry on the other side of the 
optical coupling. The photo-transistor, when illuminated by the 
LED, turns on the control circuitry. Then, when the control 
circuitry senses the aains supply voltage to be less than about 
20 volts, (close enough to zero for 240V mains), it turns on the 
triac which passes the aains current through to the load. The 
characteristics of a triac are that once turned on, it will not 
turn off until the mains current flowing through it falls to zero. 
This point, depending on the reactance of the load is nominally 
also at the zero voltage point of the mains AC cycle. This means 
that instances of power on and power off of the load are both at 
the zero voltage point of the mains cycle virtually eliminating 
the transformer spike problem. 

j -O — 3||| 'MHOOH +< j 



The circuit as can be seen is fairly simple and Involves 
only a few parts. The small power transformer provides the 
current to drive the LED on the control side of the solid state 
relay and the other supervisory LEDs. These other LEDs are 
mounted along with the ON/OFF switch, on the edge panel of the 
jiffy box used to contain the circuit. I used a short extension 
cord that,I cut in half for the aains in and out connections, 
others may prefer to mount a 3 pin socket on the side of the 
jiffy box. The whole circuit is mounted on a piece of 
experimenters matrix board, inside the box on a couple of 
standoffs. The supervisory LEDs are optional and almost any 
saall, low voltage transformer will do. even a plug pack power 
supply, which will also eliminate the need for the rectifier and 
capacitor. 

I installed the control box at a convenient point near the 
front of ay desk and connected it into the power block. I then 
switched on all of the component parts of ay systea and powered 
the whole lot simultaneously from my little toggle switch. When I 
tested ay circuit, I made ten copies of ay DOS disk and added an 
AUTO DIR command. This ensured that the head stopped over the 
directory track and any problems would show up immediately. I 
aust have switched my system on and off about 100 tiaes that 
afternoon without a single failure. Every time the DOS booted 
and then displayed the directory. Since that day. about two 
months ago, I have not reaoved ay disks at power down and have 
not lost any files or disks other than through my own stupidity, 
but then nobody's perfect, 

I cannot give a cast iron guarantee that this will work for 
every system, but I would be very surprised if it didn't and would 
like to hear of any failures. All I can do is report my success 
and hope that If you follow my example that you will be as happy 
with the results as I am. Don't forget to test the system using 
backup copies of your DOS and if you're as successful as me, you 
won't need the other nine copies and will be able to put them 
back in your disk box unused. 

[Editor's note: In the second diagram below, the wires 
labelled A, N, and E would be connected to the normal 120 volt 
household wiring found in North American homes as follows (this 
assumes a 120 volt mains input): 

A connects to the BLACK (hot) wire 

N connects to the WHITE (neutral) wire 

E connects to the BARE or GREEN (earth ground) wire 

This assumes that you are using standard three-prong plugs 
and receptacles. Also, please keep in mind that this project 
works with household current which can be quite deadly if you 
don't know how to handle It properly. Unless you are absolutely 
certain that you know what you're doing, get help from a licensed 
electrician in building this project!] 
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SUPER UTILITY CONFIGURATION 

by David Sutton 

[Reprinted from SYDTRUG NEWS, P.O. Box 297, Padstow, New 
South Wales 2211, AUSTRALIA^ 

One question overheard at the last club meeting was how 
can the Super Utility 3.2 (/CMD version) configuration table be 
amended and saved to disk, therefore avoiding the need to 
'set up 1 after each load? 

This prompted me to delve into SU and come up with the 
following steps: 

i) Load SU. 

ii) Check SU configuration table. 

iii) Examine memory used by the configuration table. 

iv) Examine the disk sector used by the configuration table. 

v) Amend configuration table as required. 

vi) Note amended byte values. 

vii) Zap the disk accordingly. 

The following will lead you through. 

1) CHECK CONFIGURATION TABLE 

Load SU, select 9, <ENTER>. Note decimal values shown for 
drive PTKS.RTKS.DIR and write- down the equivalent HEX 
values - 

e.g.. 35,35,17 - 23H.23H.11H 

2) FIND MEMORY MATCH 

Press shift/break, select 7, <ENTER>, select 9. <ENTER>. 
Answer prompt with 1,FPFFH..<ENTER>. 

Answer string prompt with Hex values per (1) abovc.SUFFIX H 
must be specified. 

e.g.. 23H.23H.11H (or whatever).. <ENTER>, <ENTER>. 
SU now shows memory location match, on my version 416BH. 
Write down this location. There may be more than one match 
but usually the first match refers to drive 0. 

3) FIN!) SECTOR MATCH 

Press shift/break, select 1, <ENTER>, select 9. <ENTER>. 
Answer prompt with 0,0,0 (drive, track, sector) .. <ENTER>. 
Answer prompt with 350 (35 track) 400 (40 track) 
etc..<ENTER>. Answer string prompt with your HEX values 
per (1) above making sure that suffix H is specified. 
<ENTER>, <ENTER>. 

Write down match details i.e. drive, track, sector, byte. 
Only the first one is relevant and refers to drive 0. 

4) AMEND CONFIGURATION TABLE 

Press shift/break, select 9, <ENTER>, and amend table as 

required. 

Note decimal values for PTKS, RTKS, DIR and write down the 

equivalent HEX values. 

5) NOTE BYTE VALUES FOR AMENDE!} TABLE 

Press break, select 7, <ENTER>, select 1, <ENTER>. 

Answer prompt with memory location per (2) above, <ENTER>. 

The 13 bytes starting from the location apply to drive 0, 

the next 13 to drive 1 and so on. 

Write down the 4 sets of 13 bytes (or SHIFT/CLEAR if you 

have a printer connected). 

6) ZAP DISK 

Press shift/break, select 1. <ENTF.R>. sclectjl, <ENTER>. 

Answer prompt with drive.track.sector match details per (3) 

above... <KNTF,R>. 

Press M and modify bytes starting at byte per (3) in line 

with byte values per (5) above. ..<ENTER>. 

Finally press U and modifications will be written to disk. 

' Upon rebooting, the configuration table should reflect the 
amendment s. As far as 1 can establish, the 13 bytes referred to 
in (5) reflect the drive configuration thus: 



Bvt.c 


] 


PTKS 


Byte 2 


RTKS 


Byte 


3 


DIR 


Byte 4 


770077 


Byte 


5 


STEP/WP/ULY 


Byte 6 


SINGLE/DOUBLE STEP 


Byte 


7 


DENSITY 


Byte 8 


DOS TYPE 


Bvte 


9 


Trt9')1 


Byte A 


?????? 


Bvte 


B 


SECTORS/GRAN 


Byte C 


GRANS /TRACK 


Byte 


D 


SECTORS /TRACK 







All values being in HEX. 

If any members can fill in the gaps via the newsletter. 
please do. One word of warning. ..for safety, practice on a backup 
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MODEL 4 SCREEN DUMP SUBROUTINE 
by Mike Zarowitz 

In response from a member of the Twin Cities Tandy Users 
Group, I have written a subroutine that allows a screen dump from 
within a BASIC program. The variables are DUMP0X - the first tine 
to be included in the screen dump, DUMP1X - the last line to be 
included, GRAPHICS* <> will send all graphics characters to the 
printer without converting them to a period. If GRAPHICS*-", then 
GRAPHIC* can be set to the character you want the graphics 
characters converted to. The routine is fully error trapped for 
valid DUMPxX numbers, and except for the first entry they always 
default to and 23 and GRAPHICS"".". I'm always looking for new 
problems that involve accessing various DOS functions from BASIC. 
If anyone has any subroutines they would like to see, they can 
drop me a line at 830 Bransten Road, San Carlos, California 94070. 
No promises, but I'll consider everything. 

10 'Front end processor for SCRNDUMP/BAS 

20 INPUT "First line: ";DUMP0X:INPUT "Last line: ";DUMP1X 

30 GRAPHICSX=0 ' no graphics characters 

40 GRAPHIC$="#" ' set graphic char conversion to "#", instead of "." 

50 GOSUB 1000:GOTO 20 

60 END 

1000 'SCRNDUMP/BAS 

1010 IF DUMP0X>23 THEN DUMP0X=0 'if start line > 23, set to 

1020 IF DUMP1*<DUMP0 OR DUMP1*>23 THEN DUMP1X=23 ' check 

validity of end 

1030 'if GRAPHICS is on, save and set DOS flag 

1040 DFLAGX=PEEK(&H6C):DSAVE*=DFLAGX:IF GRAPHICS* THEN 

DFLAGX=(PEEK(&H6D) OR 128) 

1050 GOSUB 1090 ' poke values into DOS 

1060 SCRNDUMPX=&H935:CALL SCRNDUMPX ' call the screen dump 

subroutine 

1070 ' reset GRAPHICS flag, start, graphics char ("."), and end to 

defaults. 

1080 DFLAGX=DSAVEX:DUMP0X=0:GRAPHIC$=".":DUMP1X=23 ' set 

values to DOS defaults 

1090 ' POKE DOS Graphics flag, dump start, graphics char, and dump 

end. 

1100 POKE JrH6D,DFLAGX:P0KE &H94A,DUMP0X:POKE 

&H95D,ASC(GRAPHIC$):P0KE &H974.DUMP1X 

1110 RETURN ' subroutine valid for TRSDOS 6.2.0 and 6.2.1 

RECORD LENGTHS IN VARIOUS DOS's 

by Bruce W. Tonkin 

Abridged by Andy Chakires 

[Reprinted from Micro Info Exchange, the newsletter of the 
Cabrillo Computer Society. The original article from which the 
following was excerpted originally appeared in Dynamic Memories, 
the newsletter of the South Bay TRS-80 Users Group. If the name 
Bruce W. Tonkin sounds familiar, you may recall that he is the 
author of THE CREATOR, a database program generator that first 
appeared in the January, 1983 issue of 80-MICRO.J 

Contrary to my earlier belief, I found out that the TRS-80 
Model 4 does not permit record lengths in excess of 256. The 
difficulty is not in the BASIC but in TRSDOS 6.x, It seems that 
LDOS (e.g. TRSDOS 6.x) keeps track of the record length in the 
directory, and allocates just one byte for the purpose. Thus the 
maximum possible record length is 256. 

Can you believe it? CP/M, MSDOS, the Mac's FINDER, and 
UNIX manage to be competent operating systems, and none of them 
keep track of the record length. Why should they? They keep 
track of the file size, that's all. The actual record length is up to 
the user, and that's a good approach. After all, just because I 
once opened a file with a record length of 50, doesn't necessarily 
mean 1 wouldn't like to open it with a record length of 100 the 
next time. In fact, if I want to speed up disk accesses for 
particular purposes, I may well want to open the file with a record 
length of 5000. 

Even if the DOS wanted to keep track of the record length, 
why must it report a fatal error when you try to open the same 
file with a different one? 

Only TRSDOS-like operating systems prohibit that approach. 
It's a shame that Logical Systems (TRSDOS 6.x's creators) had to 
cripple Microsoft BASIC 5.2, especially since they make such a big 
deal of how sophisticated it is. For my money, its not as good as 
CP/M, MSDOS, or UNIX. I'd rather run NEWDOS, DOSPLUS, or 
TRSDOS (I or HI) than LDOS (TRSDOS 6.x). 



42 



EEN AANCBPASTE LLIST (ANOTHER LLIST) 

by Luch Klooster 

Translated from Dutch to English by Paul Fransen 

[This program Is reprinted from REMARKS, the publication of 
the TRS-80 Gebruikers Vereniging (TRS-80 Users Group) in The 
>therlands. Note that it was written to work with the Model I 
.RS-80, I do not know if it will work with the Model III.] 

All LLIST will give you is a printout of your BASIC progran. 
It knows only one page length: endless, so every listing is one 
page. This LLIST routine knows the page length and prints on 
every page a page number and the date and tine. 

How it works: 
LLIST and LIST use the sane ROM routine. Only the "output 
device code" at address 409C tells the computer where to send 
the output to. It appears that before printing a new line it will 
jump to the "DOS exit" at address 41E0. In Level 2 there is RET 
instruction at that address. In Disk BASIC there is a JUMP to 
another address in Disk BASIC. So, I place another address in 
41E0, so the program Jumps to the new routine. The routine first 
checks the "output device code". If it is not a "1", then it jumps 
back to the original routine in BASIC. 

Pa ge and line leng th 
I use a page line length of 80 characters and a page length 
of 12 inches Ta common paper size outside of the U.S. - readers 
in North America nay wish to change this to 11 inches]. You can 
choose your own settings. Just one word of caution - the routine 
always prints an entire BASIC line without skipping, even if the 
line consists of 255 characters. So don't use a page length of 
66 (when you have 12 inch paper). Make it 62. 

I have used the following ROM-routines: 
032A Send character in A to the Output device which is pointed 

to by the output device code. Counts the characters that 

have already been printed yet (in address 409B) and the 

nunber of lines already printed (in address 4029). 
OFAF Converts Integer in HL to ASCII and sends it to the output 

device. 
1D9B Checks for SHIFT § and if pressed waits for a another key 

to be depressed to go on. 
FE Prints a Carriage Return (OD). Uses 032A. 
-2B75 Prints a string pointed by HL (using 032A). The string nust 

be terminated with a OOH-byte. 
2B7E Gets a BASIC line pointed to by HL and move? it to the 

address in 40A7H and changes the tokens into text. 

The following DOS-routines are used: 
446D Puts the tine into the address in HL (Newdos 2.0) 
4470 Puts the date into the address in HL (Newdos 2.0) 

The following addresses are used: 
4029 Line counter fron printer DCB 
402A Nornally not used [in the Model I]. This routine uses it as 

a page counter [the Model III already uses this location for 

the sane purpose]. 
409B Character counter. The nunber of characters printed (on 

one line). 
409C Output device code (imprinter, p=video, -l=cassette) 
40A7 Contains address of keyboard buffer. Used as work area. 

Patch for Newdos 2.0 Disk BASIC 
By placing this routine into space which Apparat left for 
patches, we can make the routine pernanent. You could do that 
with Superzap, Super Utility or a similar program [EDITOR'S NOTE: 
In the original article in REMARKS, this progran was ORG'd at 
6611H (in line 1200) and the nethod was given to install this 
program into formerly unused patch space in BASIC/CMD. 
Unfortunately, Apparat ZAPs 087 and 089 now nake use of this 
same area, so I have changed the ORG address to FF5SH to put the 
code into high memory (be sure to set.HIMEM to FF54H or lower 
before calling this program, and make sure you don't already have 
another program in high memory unless you change the ORG 
address and re- assemble the progran to accommodate the other 
high memory program). For the hackers In the crowd, when this 
ogram was installed in the Model I version of NEWDOS/80 Disk 
iSIC, two bytes in BASIC/CMD, sector 17, bytes 91 and 92 were 
modified to contain the starting address of this program.] 



Changes for Level 2 
The following few minor changes will make the routine work 
for level 2: 



;T0 BASIC 

;HIGH IN MEMORY 

REPLACES RET IN DOS-EXIT 



00900 


JP 


1A19H 


01200 


ORG 


high 


01500 


RET 


NZ 



Also delete lines 9200-9900. 
and time. 



ROM BASIC doesn't know the date 





00100 


;o»«»«*»»»*»»»*#«ii*»»»»**»imii»«»»»»»»«« 




00200 


:»» LLIST Kith pagenuaber. tiie and date *« 




00300 


;«« 






)« 




00400 


i*# L Klooster 


IK 




00450 


;»* Schoolstr 


aat 28 


»* 




00440 


i»* 9451 BG Rolde 


»« 




00470 


i»» Holland 




»» 




00500 


imm*»#»»»***#***»»»»»»*«»*»»»»ii«m»«i 


FD00 


00400 




ORG 


0FD00H 




FD00 2155FF 


00700 START 


LO 


HL. PRNTR ine* Hist entry 


FD03 22E041 


00800 




LD 


I41E0H)iHL ichange BASIC entry 


FD04 C3ZD40 


00900 
01000 




JP 


402DH 


iback to caller 


FF55 


01200 




ORG 


0FF55H 




FF55 3A9C40 


01300 PRNTR 


LO 


Ai(409CH) icurrent device to A 


FF58 FE01 


01400 




CP 


01H 


i test for printer 


FF5A CZB95E 


01500 




JP 


NZ.5EB9H ino. back to BASIC 


FF50 Fl 


01400 




POP 


AF 


iget rid of RET address 


FF5E ,AF 


01700 




XOR 


A 


izero i ng A 


FF5F 322A40 


01800 




LO 


(402AH)iA ilnit page counter 


FF42 C0B3FF 


01900 




CALL 


KOP 


iprint head line 


FF45 CD9B1D 


02000 LOOP 


CALL 


1098H 


itest for SHIFT 3 


FF4B C5 


02100 




PUSH 


BC 


iaddress line to print 


FF49 4E 


02200 




LD 


C.(HL) 


iLSB current line! 


FF4A 23 


02300 




INC 


HL 




FF6B 44 


02400 




LO 


B.(HL) 


iNSB current line* 


FF4C 23 


02500 




INC 


HL 


ia points to 1st character 


FF4D CS 


02400 




PUSH 


BC 


isave 1 inet 


FF4E E3 


02700 




EX 


(5P),HL 


.exchange a and Top Stack 


FF4F EB 


03000 




EX 


OE.HL 


1 exchange DE and a 


FF70 OF 


03300 




R5T 


18H 


itest for all 1 ines printed 


FF71 CI 


03400 




POP 


BC 


.pointer to 1st character 


FF72 0A1B1A 


03500 




JP 


C.1A16H 


tif printing done, then input 


FF75 E3 


03400 




EX 


(SP).HL 


i exchange a and Top Stack 


FF74 E5 


03900 




PUSH 


HL 


isave address current line 


FF77 CS 


04000 




PUSH 


BC 


isave painter 1st character 


FF7B EB 


04100 




EX 


DE.HL 


.exchange DE and VL 


FF79 3AZ940 


04300 




LO 


Ai(4029H) I count printed lines/page 


FF7C FE3E 


04400 




CP 


REGELS 


itest tor page full 


FF7E F4B3FF 


04500 




CALL 


P.KOP 


iyes. then head-routine 


FF81 CDAF0F 


04400 




CALL 


0FAFH 


iprint 1 inet in Asci i 


FF84 3E20 


04700 




LO 


A.20H 


ispace 


FFB4 El 


04800 




POP 


HL 


iaddress current 1 ine 


FF87 CD2A03 


04900 




CALL 


032AH 


iprint space 


FFBA CD7E2B 


05000 
05200 ; 




CALL 


ZB7EH 


icurrent 1 ine to nork area 
iand tokens to text 


FF8D 2AA740 


05300 




LD 


HLi(40A7H) istart address work area 


FF90 7E 


05400 PRLOOP 


LD 


a, <a> 


iget character 


FF91 B7 


05500 




OR 


A 


itest for end of line 


FF92 280F 


05400 




JR 


Z.PRENO 


iyes. then junp 


FF94 3A9B40 


05700 




LD 


Ai(409BH) icount printed characters 


FF97 FE4E 


05800 




CP 


REGELL 


itest for line full 


FF99 CCFE20 


05900 




CALL 


Z.20FEH 


iyes. then print CR and LF 


FF9C 7E 


04000 




LD 


A,(HL) 


iget character 


FF9D CD2A03 


04100 




CALL 


032AH 


iprint character 


FFA0 23 


04200 




INC 


HL 


.point to next character 


FFA1 18ED 


04300 




JR 


PRLOOP 


iloop 


FFA3 COFE20 


04400 PREND 


CALL 


20FEH 


iprint CR and LF 


FFA4 El 


04500 




POP 


HL 


iaddress pointer next line 


FFA7 Dl 


04400 




POP 


DE 


iaddress last 1 ine 


FFA8 4£ 


04700 




LD 


C(HL) 


iLSB next line 


FFA9 23 


04800 




INC 


a 




FFAA 44 


04900 




LD 


B>(HL) 


iNSB pointer next line 


FFAB23 


07000 




INC 


a 


iaddress next 1 ine* 


FFAC 78 


07100 




LD 


A.B 


itest if pointer to next 


FFAD Bl 


07200 




OR 


C 


i line-nul (end prograil 


FFAE 20B5 


07300 




JR 


NZ.LOOP 


>no. then loop 


FFB0 C3191A 


07400 
07500 i 




JP 


1A19H 


iyes. then ready and to 8ASIC 



43 



FFB3 CS 


07400 KOP 


PUSH 


BC 


lave registers 


FFB4E5 


07700 


PUSH 


HL 




FFB5D5 


07600 


PUSH 


DE 




FFBA3E0C 


07900 


LD 


A.0CH 


iFor»feed to A 


FFB8 CO2A03 


ran 


CALL 


032AH 


iprint Fortfeed 


FFBB ZAA740 


06100 


LD 


HLi(40A7H) istart address vork area 


FFBEE5 


08200 


PUSH 


HL 


iitvt Start address 


FFBF tUt 


08300 


LD 


B.70D 


iinit cOLnter 


FFCt 3420 


08400 CLEAR 


LO 


(HL)i20H 


; space to nork area 


FFC3Z3 


08500 


INC 


HL 


•increment pointer 


FFC4 10FB 


08400 


DJNZ 


CLEAR 


i t i 1 1 70 spaces 


FFCiEB 


08700 


EX 


DE.HL 


■pointer to DE 


FFC7 Z1FAFF 


08600 


LO 


HLiSTRING itext head line 


FFCA0E06 


08700 


LD 


Ci04D 


i length 


FFCC EDB0 


07000 


LOIR 




itext to dork area 


FFCEF.1 


09100 


POP 


HL 


istart address nork area 


FFCFE5 


07200 


PUSH 


HL 


•save it 


FFD0 0E32 


09300 


LD 


C.50D 


iotfset 


FFOZ 9) 


09400 


ADO 


HL.BC 


ibase t offset 


FFD3 CD7044 


07500 


CALL 


4470H 


idate 


FF0AZ3 


07400 


INC 


HL 




FF07Z3 


07700 


INC 


HL 


S2 spaces 


FFD6 CD4M4 


07600 


CALL 


444DH 


itiie 


FFDBE1 


09700 


POP 


HL 


istart address work area 


FFDC CD75ZB 


10000 


CALL 


ZB75H 


iprint head line 


FFDF 212A40 


10100 


LD 


HL.402AH 


ipage counter 


FFK34 


10200 


INC 


(HL) 


i increment counter 


FFE3 ZAZA40 


10300 


LD 


HL.U0ZAH) I page counter to HL 


Ff ft 2400 


10400 


LD 


H.00 


(zeroing H 


FFEfl CDAFff 7 


10500 . 


CALL 


0FAFH 


iprint pagel 


FFEB COFE20 


10400 


CALL 


20FEH 


iprint CR and LF 


FFEE 3E20 


10700 


LD 


A.Z0H 


i space 


FFF0 CO2A03 


10600 


CALL 


032AH 


iprint space 


FFF3 CDFE20 


10700 


CALL 


20FEH 


iprint CR and LF 


FFF4D1 


11000 


POP 


DE 


i9et registers again 


FFF7 El 


11100 


POP 


HL 




FFFBC1 


11200 


POP 


BC 




FFF? a 


11300 
11400 : 


RET 






FFFA50 


11500 STRING 


DEFM 


'Pa 9 e ' 




61 47 45 20 








FFFF 00 


11400 


DEF8 


00 




003E 


11700 REGELS 


EOU 


42D 


iNueber of lines/page 


004E 


11800 REGELL 


EOU 


760 


iHax, line - length 


FD00 


11700 


END 


.START 




00000 TOTAL ERRORS 








CLEAR FFC1 


KOP FFB3 LOOP FF45 


PREND FFA3 PRLOOP FF70 


PRNTR FF55 


REGELL 004E REGELS 003E 


START FO00 STRING FFFA 


DO SOMEONE A FAVOR-PLEASE POST THIS ON YOUR LOCAL BBS: 




WANTED - 


K)UR UNUSED COPY OF NEWDOS/80 



Many people have purchased NEWDOS/80 and, for one reason 
or another, It Is now sitting on a shelf gathering dust. However, 
Apparat has recently discontinued NEWDOS/80, and many folks who 
waited too long have found that they are now unable to purchase a 
copy. 

We still feel that NEWDOS/80 is a superior operating system 
(despite the manual), and although we have been accused by one 
newsletter editor of "trying to fragment the TRS-80 market" by 
keeping NEWDOS/80 alive, we still feel that for many people 
(especially those with 80 track and/or double sided drives in their 
systems), NEWDOS/80 is one of the best operating systems 
available. As for that newsletter editor, maybe If the folks in his 
group hadn't all rallied around LDOS and TRSDOS 6, we'd all be 
united in using NEWDOS/80, which after all was available (in an 
earlier version) before LDOS was! 

More to the point, there are still many useful application 
programs around that are designed to run under NEWDOS/80. So 
(here comes the part you might wish to upload to your local BBS). 
The Alternate Source will BUY your copy of NEWDOS/80 for resale 
purposes. If you don't want it, others probably do, so why not 
make a little money and free up some shelf space to boot? 

The only conditions are that both the original NEWDOS/80 disk 
and manual must be included, and both must be in good condition. 
Contact The Alternate Source, 704 North Pennsylvania Avenue, 
Lansing, Michigan 48906-5319 or telephone (517) 482-8270 and ask 
for Marianne or Charley. 

Of course, If you're in the market for a copy of NEWDOS/80, 
you may also contact TAS and ask about current availability. 



MODEL 4 DESKMATE (26-1608) 
by Oswald Cooper 

[This is a combination of two articles that originally appeared 
in Bits and Pieces, the newsletter of The Northeast Computer Club.] 

WRITING ALARM/ ARM TO ANOTHER DISK DRIVE 
I have applied the following patches, without problems, to 
write to the ALARM/ARM file on drive 1 instead of drive as I 
prefer to keep my drive. program disks write protected. The file 
may also be kept on drive 2, 3, 4, 5, 6, or 7 by changing the 
underlined character in the patches below to the appropriate drive 
number: 

PATCH DHRES2/CMD (D09,5F=31 :F09,5F=30) 
PATCH DMRES2/CMD (D09, 90=31: F09, 90=30) 
PATCH DMALARM/CMD (DIE ,DB=31 :F1E,DB=30) 
PATCH DMCALNDR/CMD (D31 ,7D=31 :F31 ,7D=30) 

Copy the file ALARM/ARM from drive to drive 1 and then 
remove it from drive 0. 

NOTE: Apply these patches only to backup copies of 
Deskmate program files. These patches are only for Version 
01.00.00. 

If you have applied these patches to Deskmate, you may want 
to add the following patches to change the version number from 
01.00.00 to 01.00.01. 

PATCH DMMENO/CMD (D20,D2=31 :F20,D2=30) 
PATCH DM/CMD (D00,AD=31:F00,AD=30) 

Additional notes: DeskMate will not load ASCII files "as is". 
The following procedure can be used: 

1. Copy: FILENAME/TXT TO FILENAME/DOC 

2. Use a file dump utility such as FED or DISKDUMP to 
change the last byte +1 in the file to 1AH. 

3. The file should now be loadable with TEXT in DeskMate, 
as long as there Is sufficient memory available. 

4. This procedure has been found to work with BASIC files 
saved In ASCII (,A), Allwrite text files, and VisiCalc print (/PRT) 
files. ■ 

The following procedure can be used if you use Allwrite* 
Load the document and type <CTRLxE> to move to the end. Then . 
type <CTRL><:> 2 6. [See the Allwrite manual section on 
"Special Symbols" if you are not familiar with this use of the 
"Control-:" key sequence.] This will put a "Control Z" (1AH) at the 
end of the file which is what DeskMate Text looks for at the end 
of file byte. 



64K $59.95 ppd 

INSTALLED IN KEYBOARD 

TRS-80* Model l-LII 

Send us your Keyboard and we 
will convert it to full 64K 
memory (48K RAM). Im- 
proved performance with or 
without Interface. 90 day 
warranty. Satisfaction guaran- 
teed. Quick return. Free return 
freight within U.S.A. 

iL.li, - ■- - ' 

International Carbide & Engineering, Inc. 

100 Mill St. 'P.O. Box 216 

Drakes Branch. VA 23937 

(800)424-3311 

(804)568-3311 TWX: 910-997-8341 

*TM TANDY CORP. 
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BOB BRUMLEY'S HACKER HINTS 

This Information waa provided by Bob Bromley during recent 
telephone conversations: 

r SPEEDING UP AN OLDER-STYLE MODEL 4 

We haven't tried this and present it for experimental purposes 
only. If you try it and damage your computer as a result, don't 
come crying to us. We DO NOT guarantee that these mods will 
work in any manner whatsoever, and we DO NOT guarantee that by 
Installing them you will not damage your computer or software or 
other data. We specifically disclaim any responsibility for any 
damage that may result from anyone's use of this information. 
(Even Judge Wapner should be satisfied with THAT statement - I 
. hope!). 

How would you like to speed up your older-style Model 4 to 
5.07 MHz. Or maybe 6.33S MHz? Or maybe even 10.141 MHz? Well, 
here is a very simple modification. One warning, though - you lose 
the ability to change speeds or to shift back to either of the 
original clock speeds (more on that later). 

Here's the instructions for the modification: 

1. Remove PAL IC chip U3 from Its socket. 

2. Bend out pin 19 of the PAL chip. 

3. Add a jumper wire between pin 19 of the U3 socket (NOT 
the PAL IC) and one of the following points: 

a. Pin 1? of the U3 socket for 5.07 MHz. 

b. Pin 11 of the U4 socket (the other PAL chip) for 6.335 
MHz. 

c. Pin 16 of the V3 socket for 10.141 MHz. 

4. Plug the PAL chip U3 back into the socket, making sure 
that pin 19 does NOT get plugged back in. 

5. If you have selected the 10.141 MHz speed-up, you will 
have to replace the Z-80 microprocessor with a high-speed Z-80H 
chip. You will probably also have to speed up the RAM timing as 
described in the next step. Even then, it may not work. Let the 
hardware hacker beware! 

6. If you feel the need to speed up RAM timing 
(approximately 2 or 3 times), replace your RAM chips with 120 ns. 
units. Then make the following mods: Cut pin 7 of U18 loose from 
the circuit board. Jumper pin 6 of U18 to pin 13 of U18. Remove 

f[&"3* (a PAL chip) from Its socket, bend out pin 6 and plug It back 
|T ■• Taen Jumper the pin you Just bent out (on the PAL chip itself, 
- NOT the socket this time) to U22 pin 8. 

7. Don't forget to set any appropriate options in your Disk 
Operating System (such as SYSTEM option BJ of NEWDOS/80) to 

. help It cope with your new fast clock speed. 

One last point - installation of this mod disables your ability 
to switch between high and low speed (normally 4 MHz vs. 2 MHz). 
Bob suggests that a hardware hacker could easily build up a small 
printed circuit board and add a couple of IC's (such as a 74LS00 
and a 74LS74) to permit switching between any of POUR different 
speeds (the original 2 or 4 MHz at pin 19 of PAL chip U3, which is 
selected using bit 6 of port 0ECH, and any two higher speeds. Bit 
7 of port 0ECH is unused, so If bits 6 and 7 of port 0ECH are used 
for speed control, up to four speeds could be selected). I will 
leave the design of such a board as a challenge for our readers (if 
you design one, please send It in so we can publish it!). 

UNDOCUMENTED SUPERZAP COMMAND 
Bob Brumley also points out that SUPERZAP has an 
undocumented command. It's RRT, which stands for "Read Raw 
Track", which is Just, what it does - it reads an entire disk track 
to memory, then tells you where it put it so you can examine it 
using the "DM" (Display Memory) function. Unfortunately, there is 
no companion command to write the track back out to disk, but 
this command could still prove useful, such as when you are trying 
to get some easily-recognizable data (a text file, perhaps) off of 

an alien disk. 

i- 

FASTER ACCESS TO NEW OVERLAY MODULE 
If you have installed Joachim Kelterbaum's modification to 
NEWDOS/80 that gives you a JKL routine with TRS-80 graphic 
blocks for use with the Epson RX-80/FX-80 printers (from 
NORTHERN BYTES Volume 5, Number 4, starting on page 6) you can 
speed up access to this routine. The article instructs you to patch 
?? /0tt& ztart of the normal JKL routine so that it will call the new 
k»T»erlay and jump to It. What that means is that overlay SYS3/SYS 
if Is loaded, then It Immediately calls in the new overlay containing 
I the JKL routine. You can skip the loading of SYS3/SYS and go 



directly to the new overlay by making the following patch In 
SYS1/SYS, which was provided by Bob Brumley: 

In file SYS1/SYS, relative sector 3, starting at byte 18H (in 
the Model I) or 2EH (in the Model III), you will find the byte 
sequence: 

4A 4B 4C 80 A5 10 

Change the underlined byte (the A5) to 9D and when you use the 
JKL routine, it should go directly to the new overlay, without 
calling in SYS3/SYS first. 

If you have any questions about any of these hints (or about 
the inner workings of NEWDOS/80 in general), Bob Brumley's address 
is: 8522 Alden Lane, Windsor California 95492. If you write, it 
would be only normal courtesy to enclose a stamped, self-addressed 
envelope. 



LISTING OF CHRISTIAN BULLETIN BOARD SYSTEMS 
Compiled by Neil Trudel, SYSOP, Fishermen's Scroll BBS 
(voice (705) 253-5514, B.B.S. (705) 253-5366 - 300 baud) 

Downloaded from the Fishermen's Scroll Christian BBS, 
(705) 253-5366, 35 Ontario Avenue, Sault Ste. Marie, Ontario, Canada 
(postal code P6B 1E2). If you notice that any of the information 
below has changed, or if you know of any other Christian BBS's 
that aVe not listed below, please leave a message to Sysop Neil 
Trudel. Thank You! 

The last update of this list was April 28, 1986. 

(Modem code A=300, B=300/1200, 0300/1200/2400) 

Phone #. Modem. Country. State/Province, City. Name of BBS 
011-4439-527-2611 UK, England, Exmouth, #9 Comp. For Christ 
PA, Oxford, Penn Church Board 
MB, Baltimore, #3 Computers For Christ 
MD, Washington, #8 Computers For Christ 



215-932-8829 A, 
301-828-4572 B 
301-596-0123 C 
301-995-0032 



312-1 

312-422-3326 

312-738-2785 

312-879-2751 

312-934-6060 

313-213-1214 

313-459-8375 

313-736-8031 

314-947-0895 

408-732-0312 

408-997-2790 

412-344-1315 

412-391-0395 

412-836-8407 

50; 

Z^§61-4774 
512-926-5414 
515-576-5091 
516-878-8319 
603-644-2255 
612-929-6530 
616-891-8488 
618-957-1397 
702-457-4710 
705-253-5366 A 
707-964-7114 A 
713-721-0888 B 
714-983-9923 
714-974-4294 
716-694-7351 
804-226-0441 
804-286-2929 
805-687-2754 
816-532-0984 
817-483-1264 
817-595-2620 
904-625-2737 
907-345-6661 
913-537-7173 



USA, 
USA, 
USA, 
USA, 



MD, ?, Harvester Baptist Church 

Chicago, #11 Computers For Christ 

USA, IL, Oaklawn, Bible On Line 

USA, IL, Chicago, Life Savior 

USA, IL, Batavla, Stewards Ship 

USA, IL, ?, Gospel Outreach 

USA, MI, ?, One Way 

USA, MI, Plymouth, Good News 

USA, MI, ?, City Funt 

USA, MO, St. Louis, Christian 

USA, CA, ?, Christian 

USA, CA, San Jose, HQ Computers For Christ 

USA, PA, Pittsburg, #12 Computers For Christ 

USA, PA, ?, #12 Computers For Christ 

USA, PA, Greensburg, S.O.A.R. 

Pnp Phrtat 

?, Terrain 

Austin, The Dove Works 

Fort Dodge, Fishnet 
NY, Long Island, The Electronic Angel 
NH, Manchester, Narrow Way 
MN, Minneapolis, ICHTHUS 
MI, Caledonia, Christ I Serve 

Grand Rapids, Christian Computer 

John The Baptist 
ON, Sault Ste. Marie, Fishermen's Scroll 

Fort Bragg, Commodore Christian 
TX, Houston, J.L. Christian 
CA, #? Computers For Christ 
CA, ?, Prayer In Home 
NY, Tonawanda, City Gates 
VA, Richmond, The Resistance Board 
VA, ?, Kamas 

CA, Santa Barbara, Kingdom 
MO, Kansas City, Dove Christian 
TX, Fort Worth, Good News 
TX, Hurst, Lu-ach Yeshua 
FL, Silver Springs, The Light 
AK, Anchorage, Alaskan Christian Exchange 
NY, Manhatten, What's The Good News 



KY, 
TX. 
IA, 



MI, 
NV, 



USA, 

USA, 

USA, 

USA, 

USA, 

USA, 

USA. 

USA, 

USA, 

CANADA, 

USA, CA, 

USA, 

USA, 

USA, 

USA, 

USA, 

USA, 

USA, 

USA, 

USA. 

USA, 

USA, 

USA, 

USA, 
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Powerful. Simple. Professional. 

SYSLINK offers powerful features not found in other bulletin board 
software. Menu driven. Simple to use. Professional style and format. 

USER FEATURES SYSOP/ OVERALL FEATURES 



• Supports 9000 public messages. Sectionable. 

• Separate private mail feature with reply. 

• Additional BBS database with search 
capability. 

• File transfer with ASCII and XMODEM 
protocols. 

• Online advertising and direct product 
ordering. 

• MicroMatch - Versatile online dating section. 

• SuperVote - Powerful voting/ surveying area. 
It supports multiple topics too. 

• Terminal configuration options for each user. 

• Have fun with the expandable Trivia section. 

• TeleLink - Syslink's hottest feature. Send 
messages and files to other Syslinks on the 
network. Automatic cost accounting 
included. 

Trade in your original BBS software disks and get $25 off. 



• Powerful text editor with Notepad. 

• Complete online help facility. 

• Set user time limits according to user priority. 

• All user activity is recorded in the Job Log file. 

• Full-featured menu-driven SYSOP programs 
allow you to customize Syslink as well as 
maintain and repair files. Also generates 
mailing labels. 

• Syslink is smooth in operation and easy to use. 

• Turn Syslink into a profitable venture. An 
optional marketing support package is 
available. 

• We offer full support and some customization. 

• TRS-80 (III/ IV, NEWDOS version available now. 
Hayes compatible modem required. IBM 
PC/MSDOS version coming Fall 1986! 



i 
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The Alternate Source 
Information Outlet 

704 North Pennsylvania Avenue 
Lansing, Michigan, 48906-5319, USA 



Yes, 



Phone: (517)482-8270 
-MCI Mail ID: 109-7407 
TELEX: 6501097407 
Answerback: 6501097407 MCI 
CompuServe EasyPlex: 72167,161 
Delphi Mail: TASIO 



Powerful. Simple. Professional. 

svshnk 






1 want to get involved with Syslink's expanding Metwork. 



□ Please send me more information on Syslink. 

□ Send me the complete Syslink package for $125. (TRS-80 Model III/IV version) 

□ Enclosed are my original BBS software diskettes. Send me Syslink for $100. 

□ Check □ Money Order D Visa D Mastercard 



Dame. 
Street. 
City 



Computer type 
Telephone_„_ 



State. 



.Zip_ 



BBS Phone 
Signature _ 



Account Mo. 



Expiration date 



Trademarks: SYSLINK. Software Interphase, Inc.. trs-80, Tandy Corporation; Hayes. Hayes Microcomputer Products. NEWDOS, Apparat Inc. 



f^ 
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704 North Pennsylvania Avenue 

Lansing, Michigan, 48906-5319, USA 

Phone: (517) 482-8270 

MCI Mail ID: 109-7407 

TELEX: 6501097407 

Answerback: 6501097407 MCI 

CompuServe EasyPlex: 72167,161 

Delphi Mail: TASIO 



HE 
MJERNKTE 

URGE 




Toll Free Ordering: 
US: 800-253 3200 Ex 700 



TURBO CHARGE : 

"Designed by an automotive engineer and guaranteed NOT to be 
RECALLED!" Bruce Hansen, author of our popular TASM0N and 
ADVENTURE SYSTEM programs, ia now an automotive engineer. 
Amidst an MSDOS world he has still found time to develop a 
superb package for the TRS-80 I, III(4)(P)(D). Turbo Charge 
displays the curving, winding roads of the racetrack. Glance 
in your rear-view mirror and you can see your opponents as 
they challenge your position or eat your dust. YOU control 
the shifting, the acceleration, the steering and the braking. 

D8TURB0 : Bruce Hansen ' s Turbo Charge $29 • 95 




TERMINAL EMULATION SYSTEM (TES) 

Why Aflvest in a dumfc texainal when you can use a comparable 
p#l£*-i -TRS-80 Model 4 ^r''4S-.>and have the power of a full 
jMfl|8(&?fe«T available to your ,, Operators? Whether you are talking 
«P#4(i|friH» ^ '*-»*»* •^MJiiin.al, TBS will train your 
TR8K8l©,T-RS-80 to pr«per£.y rSsjrend to control codes from over 
]$j#m&rt4. different Wwtisalffl! As the world of 

»nica r tt-Qruif-«jKMji!^u ; ,3rour TRS-80 can grow with it! TES 
'If v "'^^^^^"^S^^^W edi * or ' for defining your own 
I'jcnd- aiA-Hf^J^^I^Hil^Cup to 300) as you meet then. 

§m^T$Tmknm3, f^itivR^9,wa^ft for TRSDOS 6 $79-95 



. TERminoi 
^EmuiATion. 



*k** 



$kp#ljb$k , W^»JMUNM«»djWK *F more 0i y° ur mailing lists with 

ice. MAILCALL 
supports names antt-'irft^reatee from around the world. >You will 
no I'engsr need to ^v*- y«u,r foreign customers second class 
ewf.vioev Completa- setup instructions and a friendly operator 
interface are include* to get you organized fast. Once 

■o^gania**, you stay* that .way, because your master MAILCALL 
liat is never sorted, yet' you can instantly access your list 
in f both* name and zip cede order. A conversion utility is 
included to assist you with transferring your current files to 
MAILCALL. Unprotected and hard disk compatible. MAILCALL 
also integrates with the optional TAS ORDER ENTRY SYSTEM. 

DMMC: MAILCALL for MSDOS $79-95 

D4MC: MAILCALL for TRSDOS 6 ,. $79-95 



Name : 

Address: 

Address: 

Address: __^ 
Charge Card: 



USE THIS TO ORDER 



i'xpiry: 



Total $: 

Tax: 

Shipping: 

COD: 

Total: 



wsr 



$3-00 



Special Instructions: , 

Please add $3 shipping/handling per order; COD $2 a'd'diti'onal 



JU1 
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NORTHERN BYTES 
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Subscription Information 

Northern Bytes is edited by Jack Decker and published on 
an irreeular basis by The Alternate Source Information 
Outlet. Back issues are available startine with Uolume 5. 
Number 1 . Issues prior to that are not available. Some of 
the most valuable articles from earlier issues may be 
reprinted in future Issues of Northern Bytes. Currently 
there are eight back issues available for Uolume 5. as well 
as all issues from Uolume 6. All back issues are $2 each. 

It is very easy to be placed on the Northern Bytes 
REGULAR list. Simply Place your address. Uisa or 
MasterCard number and expiration date on file with us. 
We will start with me issue you request. We do not bill you 
for ANV ISSUE until that issue has been mailed. This way. 
we can continue to offer you top Quality information with 
absolutely no risk to you. There's no question of what to 



do about unfulfilled issues if we decide to quit Publishing 
Unless otherwise requested, we Presume your 
subscription will extend throuah the month of your 
expiration date. 

Don't have a charge card, huh? We understand the myriad 
of reasons for not havina them and we feel that a "To-Be- 
Invoiced" policy could help increase the demand for 
Northern Bytes. If you'll do it for us. we'll do it for you. 
Would you like to be Placed on a regular list TO BE 
BILLED for each issue? You could then send a check for 
the issues as they are mailed. If you didn't send a check, 
we would presume that your interest has dfed and 
discontinue your subscription. The only requirement for 
getting onto the list is to pay for the first issue up front: 
the next will be mailed automatically, if you request. Vou 
are insured that you will receive top of the line TRS-80 
information as it is released. Ask to be Placed on the NO 
RISK "To-Be-lnvoiced Northern Bytes List". 



Call or write, but SIGN UP TODAY! 

The Alternate Source Information Outlet 

7DH North Pennsylvania Avenue 

Lansing. Michigan H890B-5319 

Telephone C517) 4BH-8B70, or hit our toll-free line for ORDERS ONLY: 

(BOO) B53-3280 ext. 761 in U.S.A. 
EMAIL: CompuServe: 73167,161 / Delphi: TASK) /MCI Mill: 109-7407 / Telex: 65010S7407 MCI I 



NORTHERN BYTES 




c/o JacK DecKer 

1804 West 18th Street # 155 

Sault Ste. Marie, Michigan 49783-1268 

U.S.A. 



Bulk Mall 

U.S. Pottage Paid 

Permit 815 

laming. Ml 



POSTMASTER" Address Correction Requested. 
Send address changes, USPS Form 3579, and undeliverable 
copies to: The Alternate Source Information Outlet, 
704 North Pennsylvania Avenue, Lansing, Michigan 48906-5319 



To 



ELECTRONIC MAIL ADDRESSES: 
CompuServe EasyPlex: 72167,161 

Delphi Mail: T^fJS 

MCI Mail: 109-7407 

Telex- 6501097407 

Answerback: 6501097407 MCI 



fr 



